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NAME:  DELDSL1 

PURPOSE:  DELETE  A  RECORD  FROM  DF_SET  LINKAGE  ENITY 

LANGUAGE :  C 

SOURCE  FILE:  DELDSL1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 


DELDSL1 (&DB_ID, &STATUS) 


COBOL  —  CALL  "DELDSL1"  USING 

DB-ID, 

STATUS • 

FORTRAN  ~  CALL  DELDS LI (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DF  SET  LINKAGE.  IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE 
STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID 

STATUS 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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INT  * 
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NAME:  DELDSL2 

PURPOSE:  DELETE  A  RECORD  FROM  DF_SET_LINKAGE  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELDSL2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELDSL2 (&DB_ID,  &RT_ID,  &STATUS) 

COBOL  —  CALL  "DELDSL2 "  USING 

DB-ID, 

RT-ID, 

STATUS . 

FORTRAN  —  CALL  DELDSL2 (DBID,  RTID,  STATUS) 

INPUT: 

INT  *DB_ID  ; 

CHAR  *RT_ID  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DF  SET  LINKAGE 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS: 


DB_ID  INT  * 

RT_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELDSL3 

PURPOSE:  DELETE  A  RECORD  FROM  DF__SET_LINKAGE  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELDSL3 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELDSL3 (&DB_ID,  &RT_ID,  &DF_ID,  &STATUS) 

COBOL  —  CALL  " DELDSL3"  USING 

DB-ID, 

RT-ID, 

DF-ID, 

STATUS . 

FORTRAN  —  CALL  DELDSL3 (DBID,  RTID,  DFID,  STATUS) 
INPUT: 

INT  *DB_ID  ; 

CHAR  *RT_ID  ; 

CHAR  *DF_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DF_SET_LINKAGE 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


DB_ID 

RT_ID 

DF_ID 

STATUS 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


INT  * 
CHAR  * 
CHAR  * 
INT  * 
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NAME:  DELEC 

PURPOSE:  DELETE  THE  RECORD  FROM  ENTITY_CLASS 

LANGUAGE:  C 

SOURCE  FILE:  DELEC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  EC_NO  =:  "INPUT  PARAMETER  1  " 

SYNOPSIS 

C  —  DELEC (&EC_NO,  &STATUS) 

COBOL  —  CALL  "DELEC"  USING 

EC-NO, 

STATUS . 

FORTRAN  —  CALL  DELEC ( ECNO , STATUS ) 

INPUT: 

I NT  *EC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
ENTITY_CLASS 

WHERE  EC_NO  EQUALS  TO  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


EC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELECAL 

PURPOSE:  DELETE  RECORD  CLASS  FROM  ENTITY_NAME 

LANGUAGE :  C 

SOURCE  FILE:  DELECAL 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  EC_NAME  =:  "INPUT  PARAMETER  1  "  AND 
EC_NO  "INPUT  PARAMETER  2"  ; 

SYNOPSIS 

C  —  DELECAL (EC_NAME,  &EC_NO,  & STATUS) 

COBOL  —  CALL  "DELECAL"  USING 

EC-NAME, 

EC-NO, 

STATUS . 

FORTRAN  —  CALL  DELECAL (ECNAME , ECNO, STATUS) 

INPUT:  CHAR  *EC_NAME  ; 

INT  *EC_NO  ; 

OUTPUT:  INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
2NTITY_NAME 

WHERE  EC_NAME  EQUALS  TO  "INPUT  PARAMETER  1"  AND  EC_NO 
EQUALS  TO  "INPUT  PARAMETER  2". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


EC_NAME  CHAR  * 

EC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELECKW 

PURPOSE:  DELETE  A  RECORD  FROM  EC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  DELECKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  EC_NO  =:  M INPUT  PARAMETER  1"  ; 

SYNOPSIS 

C  —  DELECKW (&EC_NO,&STATUS) 

COBOL  —  CALL  " DELECKW"  USING 

EC-NO, 

STATUS . 

FORTRAN  —  CALL  DELECKW (ECNO, STATUS) 

INPUT: 

I NT  *EC_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
EC_KEYWORD 

WHERE  EC_NO  EQUALS  TO  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


EC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELECNM 

PURPOSE:  DELETE  THE  RECORD  FROM  ENTITY_NAME 

LANGUAGE:  C 

SOURCE  FILE:  DELECNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  EC_NO  =:  "INPUT  PARAMETER  1  " 

SYNOPSIS 

C  —  DELECNM (&EC_NO,  &STATUS) 

COBOL  —  CALL  "DELECNM"  USING 

EC-NO, 

STATUS . 

FORTRAN  —  CALL  DELECNM (ECNO,  STATUS) 

INPUT: 

INT  *EC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
ENTITY_NAME 

WHERE  EC_NO  EQUALS  TO  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROJLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


EC_NO 

STATUS 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


INT  * 
INT  * 
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NAME:  DELFLDA 

PURPOSE:  DELETE  A  RECORD  FROM  DATA_FIELD  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELFLDA 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELFLDA (&DB_ID,  &RT_ID,  &STATUS) 

COBOL  —  CALL  ” DELFLDA”  USING 

DB-ID, 

RT-ID, 

ST/  TUS . 

FORTRAN  —  CALL  DELFLDA (DBID,  RTID,  STATUS) 

INPUT: 

I NT  *DB_ID  ; 

CHAR  *RT_ID  ; 

OUTPUT: 

I NT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DATA_FIELD 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

RT_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELIAUC 

PURPOSE:  DELETE  A  REORD  FROM  INHERITED_ATT_USE 

LANGUAGE:  C 

SOURCE  FILE:  DELIAUC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  TAG_NO  =  :  1  ; 

SYNOPSIS 

C  —  DELIAUC ( &TAG_NO , &STATUS ) 

COBOL  —  CALL  "DELIAUC"  USING 

TAG-NO, 

STATUS . 

FORTRAN  —  CALL  DELIAUC (T\GNO, STATUS) 

INPUT: 

I NT  *TAG_NO  ; 

OUTPUT : 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
INHERITED_ATT_USE 

WHERE  TAG_NO  EQUALS  TO  "INPUT  PAPAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


TAG_NO 

STATUS 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLT^L 

SQLOPN 

SQLCSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


INT  * 
INT  * 
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NAME:  DELIAUK 

PURPOSE:  DELETE  A  RECORD  FROM  INHERITED_ATT_USE  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELIAUK 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELIAUK (&KC_NO,  & STATUS) 

COBOL  —  CALL  "DELIAUK"  USING 

KC-NO, 

STATUS . 

FORTRAN  —  CALL  DELIAUK (KCNO,  STATUS) 

INPUT: 

INT  *KC_NO  ; 

OUTPUT: 

INT  *  STATUS  ,* 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
INHERITED_ATT_USE.  IF  SUCCESSFULLY  DELETED  THE  RECORD  , 
THE  STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


KC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELIRCS 

PURPOSE:  DELETE  RECORD  CLASS  FROM  RC_BASED_REC_SET 

LANGUAGE:  C 

SOURCE  FILE:  DELIRCS 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  DB_ID  =:  "INPUT  PARAMETER  1  "  AND 
SET_ID  :=  "INPUT  PARAMETER  2”  AND 
RT_ID  :=  "INPUT  PARAMETER  3  ”  AND 
RC_NO  :=  "INPUT  PARAMETER  4"  ; 

SYNOPSIS 

C  —  DELIRCS (&DB_ID,  SET_ID,  RT_ID,  &RC_NO 

&STATUS) 

COBOL  —  CALL  "DELIRCS"  USING 

DB-ID, 

SET-ID, 

RT-ID, 

RC-NO, 

STATUS • 

FOSETRAN  —  CALL  DELIRCS (DBID, SETID, RTID, RCNO, STATUS) 
INPUT: 

CHAR  *SET_ID  ; 

CHAR  *RT_ID  ; 

INT  *DBJED  ; 

INT  *RC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RC_BASED_REC_SET 

WHERE  DBID  EQUALS  TO  "INPUT  PARAMETER  1"  AND  RT  ID 
EQUALS 

TO  "INPUT  PARAMETER  3"  AND  SET_ID  EQUALS  INPUT  PARAMETER  2 
AND  RC_NO  EQUALS  INPUT  PARAMETER  4 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


DBID 

SET_ID 

RT_ID 

RC_NO 

STATUS 


INT  * 
CHAR  * 
CHAR  * 
INT  * 
INT  * 
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ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


DOCGROUP  PS41100  Module  Documentation 


NAME:  DELKC 

PURPOSE:  DELETE  A  RECORD  FROM  KEY_CLASS 

LANGUAGE:  C 

SOURCE  FILE:  DELKC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  KCNO 
SYNOPSIS 
C 

COBOL 


FORTRAN 

INPUT: 


=  :  l 


DELKC ( &KC_NO , & STATUS ) 
CALL  "DELKC"  USING 
KC-NO, 
STATUS . 

CALL  DELKC (KCNO, STATUS) 


I NT  *KC_NO  ; 

OUTPUT: 

I NT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
KY_CLASS 

WHERE  KC_NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


INT  * 
I  NT  * 


KC  NO 
STATUS 
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ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELKCM 

PURPOSE:  DELETE  A  RECORD  FROM  KEY_CLASS  MEMBER 

LANGUAGE:  C 

SOURCE  FILE:  DELKCM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  KC_NO  «:  1  ; 

SYNOPSIS 

C  ~  DELKCM (&KC_NO,&STATUS) 

COBOL  —  CALL  DELKCM"  USING 

KC-NO, 

STATUS . 

FORTRAN  —  CALL  DELKCM (KCNO, STATUS) 

INPUT:  INT  *KC_NO  ? 

OUTPUT:  INT  * STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
KEY_CLASS_MEMBER  WHERE  KC_NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


KC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 
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SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 

DOCGROUP  PS41100  Module  Documentation 
NAME:  DELKCMT 

PURPOSE:  DELETE  A  RECORD  FROM  KEY_CLASS_MEMBER 

LANGUAGE:  C 

SOURCE  FILE:  DELKCMT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  TAG_NO  =:  1  ; 

SYNOPSIS 

C  —  DELTAGMT ( &TAGNO , & STATUS ) 

COBOL  —  CALL  "DELKCMT"  USING 

TAG-NO, 

STATUS . 

FORTRAN  —  CALL  DELKCMT (TAGNO, STATUS) 

INPUT:  INT  *TAG_NO  ; 

OUTPUT:  INT  ‘STATUS  J 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
KEY__CLASS_MEMBER  WHERE  TAG_NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


TAG_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Nodule  Documentation 
NAME:  DELKW 

PURPOSE:  DELETE  A  RECORD  FROM  AC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  DELKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  KW_NO  =:  1  ? 

SYNOPSIS 

C  —  DELKWAC ( &KW  NO,&STATUS) 

COBOL  —  CALL  "DELKW17  USING 

KW-NO, 

STATUS . 

FORTRAN  —  CALL  DELKW (KWNO, STATUS) 

INPUT:  INT  *KW_NO  ; 

OUTPUT:  INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
ACKEYWORD 

WHERE  KWNO  =  "INPUT  PARAMETER  1  ". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


KW_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELKWAC 

PURPOSE:  DELETE  A  RECORD  FROM  AC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  DELKWAC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  KW_NO  =:  1  ; 

SYNOPSIS 

C  —  DELKWAC (&KW_NO,&STATUS) 

COBOL  —  CALL  " DELKWAC"  USING 

KW-NO, 

STATUS . 

FORTRAN  —  CALL  DELKWAC ( KWNO , STATUS ) 

INPUT: 

INT  *KW_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
AC  KEYWORD 

WHERE  KW_NO  =  "INPUT  PARAMETER  1 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


KW_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELKWEC 

PURPOSE:  DELETE  A  RECORD  FROM  EC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  DELKWEC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  KW_NO  =:  1  ; 

SYNOPSIS 

C  —  DELKWEC ( &KW_NO , &STATUS) 

COBOL  —  CALL  "DELKWEC”  USING 

KW-NO, 

STATUS . 

FORTRAN  —  CALL  DELKWEC (KWNO , STATUS) 

INPUT:  INT  *KW_NO  ; 

OUTPUT:  INT  ‘STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
EC  KEYWORD 

WHERE  KWNO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS: 


KW_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELKHRC 

PURPOSE:  DELETE  A  RECORD  FROM  RC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  DELKWRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  KW_NO  =:  1  ; 

SYNOPSIS 

C  —  DELKWRC (&KW_NO, &STATUS) 

COBOL  —  CALL  M DELKWRC”  USING 

KW-NO, 

STATUS . 

FORTRAN  —  CALL  DELKWRC (KWNO, STATUS) 

INPUT: 

I NT  *KW_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RC_KEYWORD 

WHERE  KW_NO  =  "INPUT  PARAMETER  1”. 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

ARGUMENTS: 


KW_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELLR 

PURPOSE:  DELETE  A  RECORD  FROM  LINK_RELATION 

LANGUAGE:  C 

SOURCE  FILE:  DELLR 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC_NO  =:  “INPUT  PARAMETER  1”  ; 

SYNOPSIS 

C  —  DELLR (&RC_NO,& STATUS) 

COBOL  —  CALL  “DELLR”  USING 

RC-NO, 

STATUS . 

FORTRAN  —  CALL  DELLR ( RCNO , STATUS ) 

INPUT: 

INT  *RC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
LINK_RELATION 

WHERE  RC_NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


RC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELMIGK 

PURPOSE:  DELETE  MIGRATING  KEY  CLASS 

LANGUAGE:  C 

SOURCE  FILE:  DEUfIGK 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELMIGK ( &TAG_NO) 

COBOL  —  CALL  "DELMIGK”  USING 

TAG-NO. 

FORTRAN  —  CALL  DELMIGK  (TAGNO) 

INPUT: 

INT  *TAG_NO 
OUTPUT: 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SELECT  STATEMENT  TO  RETRIEVE 

ALL 

MIGRATING  KEY  CLASSES  GIVEN  A  TAG  NUMBER.  ROUTINES  ARE 
CALLED 

WHICH,  FOR  EACH  NEW  TAG  NUMBER  SELECTED,  DELETE  THE 
INHERITED 

ATTRIBUTE  CLASS,  ATTRIBUTE  USE  CLASS,  COPY  CROSS 
REFERENCE  AND 

KEY  CLASS  MEMBER  ENTITIES  WHOSE  TAG  NUMBERS  MATCH. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

3/20/89:  REWRITTEN  TO  TAKE  OUT  * CONNECT  BY  PRIOR'  TO  MAKE 

STANDARD  SQL. 

THIS  WILL  EMULATE  THE  ORACLE  SQL  COMMAND: 

SELECT  UNIQUE  TAG_NO  FROM  INHERITED  ATT_USE 
CONNECT  BY  PRIOR  KCM_TAG_NO 
START  WITH  KCM_TAG_NO  =  :TAG_NO_SQL; 


ARGUMENTS : 


INT  * 
INT  * 

INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 


TAG_NO 

RTNSTA 
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SQLCLS 

DELIAUC 

SPRINTF 

UERROR 

ADDRNUM 

FRETAGLST 

ERRRPT 

DELKCMT 

DELAUCL 

SQLAD2 

SQLFCH 

INSTAGLST 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 

DOCGROUP  PS41100  Module  Documentation 

NAME:  INSTAGLST 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  DEIMIGK 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

ROUTINES  CALLED: 


MALLOC 
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DOCGROUP  PS41100  Module  Documentation 

NAME:  FRETAGLST 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  DEU1IGK 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

ARGUMENTS : 


DEL_NODE  TAGUSED  * 

INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

ROUTINES  CALLED: 


FRETAGLST 

FREE 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DEIWOD 

PURPOSE:  DELETE  A  RECORD  FROM  MODEL_CLASS  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DEUIOD 

SOURCE  FILE  TYPE:  DAT 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  TEST 

DESCRIPTION: 


SYNOPSIS 

C  —  DELMOD ( &MODEL_NO ,  & STATUS) 

COBOL  —  CALL  "DELMOD"  USING 

MODEL-NO, 

STATUS . 

FORTRAN  —  CALL  DELMOD ( MO DELNO,  STATUS) 

INPUT: 

I NT  *MODEL_NO  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
MODEL_CLASS.  IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE 
STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


MODEL_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DEIMTKC 

PURPOSE:  DELETE  EMPTY  KEY  CLASSES  GIVEN  THE  MODEL  NUMBER 

LANGUAGE:  C 

SOURCE  FILE:  DELMTKC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELMTCK ( &MODEL_NO ) 

COBOL  —  CALL  "DELMTKC'*  USING 

MODEL-NO. 

FORTRAN  —  CALL  DELMTKC  (MODELNO) 

INPUT: 

INT  *MODEL_NO 
OUTPUT: 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SELECT  STATEMENT  TO  OBTAIN  ALL 
KEY  CLASS  NUMBERS  WHICH  HAVE  NO  MEMBERS.  FOR  EACH  KEY 
CLASS 

FOUND,  THE  RECORD  IS  DELETED  FROM  THE  COMPLETE  RELATION 
CLASS, 

THE  KEY  CLASS  ITSELF,  AND  THE  KEY  CLASS  COPY  CROSS 
REFERENCE. 

THIS  ROUTINE  WILL  ALSO  DELETE  TEXTUAL  DESCRIPTIONS  AND  ADD 
THE  REUSABLE  KEY  CLASS  NUMBER  BACK  TO  THE  CDM 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


MODEL_NO  INT  * 

INCLUDE  FILES: 


CSTDTYP 

UNIQENO 

EOD 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

DELCMPR 
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SPRINTF 

UERROR 

ADDRNUM 

DELKC 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 

DOCGROUP  PS41100  Module  Documentation 
NAME:  DELOACE 

PURPOSE:  DELETE  A  RECORD  FROM  OWNE D_ATTRI BUTE  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELOACE 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELOACE (&EC_NO,  &STATUS) 

COBOL  —  CALL  M DELOACE M  USING 

EC-NO, 

STATUS. 

FORTRAN  —  CALL  DELOACE ( ECNO ,  STATUS) 

INPUT: 

INT  *EC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
OWNED_ATTRIBUTE.  IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE 
STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


EC_NO 

STATUS 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


INT  * 
INT  * 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELOWAC 

PURPOSE:  DELETE  A  RECORD  FROM  OWNED_ATTRI BUTE 

LANGUAGE:  C 

SOURCE  FILE:  DELOWAC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  AC_NO  =  :  "INPUT  PARAMETER  1"  ; 

SYNOPSIS 

C  —  DELOWAC ( & AC_NO , & STATUS ) 

COBOL  —  CALL  "DELOWAC"  USING 

AC-NO , 

STATUS . 

FORTRAN  —  CALL  DELOWAC (ACNO, STATUS) 

INPUT: 

INT  *AC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
OWNE  D_ATTRI BUTE 

WHERE  AC_NO  =:  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  f  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


AC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELPCB 

PURPOSE:  DELETE  A  RECORD  FROM  PSB_PCB  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELPCB 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELPCB (&DB__ID,  &STATUS) 

COBOL  —  CALL  "DELPCB**  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELPCB (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  *STATUS  7 
DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
PSB_PCB.  IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS 
AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELPSWD 

PURPOSE:  DELETE  A  RECORD  FROM  DB_PASSWORD  ENTITY 

LANGUAGE:  C 

SOURCE  FILE:  DELPSWD 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELPSWD (&DB_ID,&STATUS) 

COBOL  —  CALL  " DELPSWD M  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELPSWD (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DB_PASSWORD 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELRBR1 

PURPOSE:  DELETE  A  RECORD  FROM  RC_BASED_REC_SET  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELRBR1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELRBR1 (&DB_ID, &STATUS) 

COBOL  —  CALL  "DELRBRl"  USING 

DB-ID, 

STATUS . 

FORTRAN  ~  CALL  DELRBR1 (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RC_BASED_REC_SET.  IF  SUCCESSFULLY  DELETED  THE  RECORD  , 
THE  STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELRBR2 

PURPOSE:  DELETE  A  RECORD  FROM  RCJBASED  REC  SET  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELRBR2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELRBR2 (&DB_ID,  &SET_ID,  &STATUS ) 

COBOL  —  CALL  ”DELRBR2M  USING 

DB-ID, 

SET-ID, 

STATUS . 

FORTRAN  —  CALL  DELRBR2 (DBID,  SETID,  STATUS) 

INPUT: 

INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RC_BASED_REC_SET 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


DB__ID  INT  * 

SET_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELRC 

PURPOSE:  DELETE  A  RECORD  FROM  RELATION_CLASS 

LANGUAGE:  C 

SOURCE  FILE:  DELRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC_NO  =  :  ‘'INPUT  PARAMETER  1“  ; 

SYNOPSIS 

C  —  DELRC ( &RC_NO , &STATUS ) 

COBOL  —  CALL  “DELRC"  USING 

RC-NO , 

STATUS. 

FORTRAN  —  CALL  DELRC (RCNO , STATUS ) 

INPUT: 

INT  *RC_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RELATION_CLASS 

WHERE  RC_NO  *  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


RC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELRCKW 

PURPOSE:  DELETE  A  RECORD  FROM  RC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  DELRCKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC_NO  =:  1  ; 

SYNOPSIS 

C  —  DELRCKW (&RC_NO,&STATUS) 

COBOL  —  CALL  "DELRCKW'*  USING 

RC-NO, 

STATUS. 

FORTRAN  —  CALL  DELRCKW (RCNO, STATUS) 

INPUT: 

I NT  *RC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RCKEYWORD 

WHERE  RC  NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


RC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELRCST 

PURPOSE:  DELETE  RECORD  CLASS  FROM  RC_BASED_REC_SET 

LANGUAGE:  C 

SOURCE  FILE:  DELRCST 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC_NO  =  :  "INPUT  PARAMETER  1"  ; 

SYNOPSIS 

C  —  DELRCST (  &AC_NO,  &STATUS) 

COBOL  —  CALL  "DELRCST"  USING 

RC-NO, 

STATUS. 

FORTRAN  —  CALL  DELRCST (RCNO, STATUS) 

INPUT: 

INT  *RC_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RC_BASED_REC_SET 

WHERE  RC_NO  EQUALS  "INPUT  PARAMETER  1"  . 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


RC_NO 

STATUS 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


INT  * 
INT  * 
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NAME:  DELRST2 

PURPOSE:  DELETE  A  RECORD  FROM  RECORD_SET  ENTITY 

LANGUAGE:  C 

SOURCE  FILE:  DELRST2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  ~  DELRST2 (&DB_ID,  SET_ID,  &STATUS) 

COBOL  —  CALL  ,,DELRST2,,  USING 

DB-ID, 

SET-ID, 

STATUS . 

FRTRAN  —  CALL  DELRST2 (DBID,  SETID,  STATUS) 

INPUT: 

INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RECORD_SET 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


DB_ID  INT  * 

SET  ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELRST3 

PURPOSE:  DELETE  A  RECORD  FROM  RECORD_SET  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELRST3 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELRST3 ( &DB  ID,  &SET_ID,  &RT_ID_OF_OWNER, 

&STATUS) 

COBOL  —  CALL  *,DELRST3W  USING 

DB-ID, 

SET-ID, 

DF-ID, 

STATUS . 

FORTRAN  —  CALL  DELRST3 (DBID,  SETID,  DFID,  STATUS) 
INPUT: 

INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

CHAR  *RT_ID_OF_OWNER  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RECORD_SET 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


DB_ID  INT  * 

SET_ID  CHAR  * 

RT_ID_OF_OWNER  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELRTY2 

PURPOSE:  DELETE  A  RECORD  FROM  RECORD_T Y PE  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELRTY2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELRTY2 (&DB_ID,  &RT_ID,  & STATUS) 

COBOL  —  CALL  " DELRTY”  USING 

DB-ID, 

RT-ID, 

STATUS . 

FORTRAN  —  CALL  DELRTY (DBID,  RTID,  STATUS) 

INPUT: 

INT  *D3_ID  ; 

CHAR  *RT_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
RECORDJTYPE 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

RT_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELSDF1 

PURPOSE:  DELETE  A  RECORD  FROM  SEGMENT_DATA_FIELD  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELSDF1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELSDF1 ( &DB_ID, &STATUS) 

COBOL  —  CALL  " DELSDF1"  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELSDF1 (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
SEGMENT_DATA_FIELD .  IF  SUCCESSFULLY  DELETED  THE  RECORD  , 
THE  STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRJRPT 
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NAME:  DELSN1 

PURPOSE:  DELETE  A  RECORD  FROM  SCHEMA_NAMES  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELSN1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELSN1 ( &DB_ID, &STATUS) 

COBOL  —  CAL  "DELSNl"  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELSNl (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
SCHEMANAMES 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  f  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELSTM1 

PURPOSE:  DELETE  A  RECORD  FROM  SET_TYPE_MEMBER  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELSTM1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELSTM1 ( &DB_ID , &STATUS ) 

COBOL  —  CALL  "DELSTMl"  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELSTM1 (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
SET_TYPE_MEMBER.  IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE 
STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELSTM2 

PURPOSE:  DELETF  A  RECORD  FROM  SET_TYPE_MEMBER  ENTITY 

LANGUAGE:  C 

SOURCE  FILE:  DELSTM2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELSTM2 (&DB_ID,  SET_ID,  &STATUS) 

COBOL  —  CALL  " DELSTM2'1  USING 

DB-ID, 

SET-ID, 

STATUS . 

FRTRAN  —  CALL  DELSTM2 (DBID,  SETID,  STATUS) 

INPUT: 

I NT  *DB_ID  ; 

CHAR  *SET_ID  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
SET_TYPE_MEMBER 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

SET_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELSTM3 

PURPOSE:  DELETE  A  RECORD  FROM  SET_TYPE_MEMBER  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELSTM3 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELSTM3 (&DB_ID,  &SET_ID,  &RT_ID_OF_MEMBER , 

&STATUS) 

COBOL  —  CALL  "DELSTM3M  USING 

DB-ID, 

SET-ID, 

DF-ID, 

STATUS . 

FORTRAN  —  CALL  DELSTM3 (DBID,  SETID,  DFID,  STATUS) 
INPUT: 

INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

CHAR  *RT_ID_OF_MEMBER  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
SET_TYPE_MEMBER 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


DB_ID  INT  * 

SET_ID  CHAR  * 

RT_ID_OF_MEMBER  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


3-1240 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 
NAME:  DELTEXT 

PURPOSE:  DELETE  A  RECORD  FROM  DESC_TEXT  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELTEXT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELTEXT (&OBJECTJTYPE,  &OBJECT_NO,  &STATUS) 

COBOL  —  CALL  "DELTEXT"  USING 

OBJECT-TYPE, 

OBJECT-NO, 

STATUS . 

FORTRAN  —  CALL  DELTEXT (OBJECT-TYPE, OBJECT-NO, STATUS) 

INPUT: 

CHAR  *OBJECT_TYPE  ; 

I NT  *OBJECT_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DESC_TEXT 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS: 


OBJECT_TYPE  CHAR  * 

OBJECT_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME :  DELTXT 

PURPOSE:  DELETE  DESCRIPTION  TEXT  GIVEN  THE  OBJECT  TYPE, 

LANGUAGE:  C 

SOURCE  FILE:  DELTXT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DESCRIPTION  TYPE  AND  THE  OBJECT  NUMBER. 

SYNOPSIS 

C  —  DELTXT  (OBJJTYPE,  DESC_TYPE,  &OBJ_NO,  &STATUS) 

COBOL  —  CALL  M DELTXT M  USING 

OBJ-TYPE 

DESC-TYPE 

OBJ-NO 

STATUS 

FORTRAN  —  CALL  DELTXT 

( OBJTYPE , DESCTYP , OBJNO , STATUS ) 

INPUT:  CHAR  OBJJTYPE [] 

CHAR  DESC JTYPE [ ] 

INT  *OBJ_NO 

OUTPUT:  INT  ‘STATUS 

DESCRIPTION  DELTXT  DELETES  ALL  DESCRIPTION  TEXT  CORRESPONDING  TO  A 
PARTICULAR  OBJECT  TYPE,  OBJECT  NUMBER  AND  DESCRIPTION  TYPE  USING  A 
SQL  DELETE  COMMAND.  IF  THE  DELETE  WAS  SUCCESSFUL,  STATUS  IS  ZERO 
AND  THE  VALUE  OF  THE  FUNCTION  IS  ZERO.  IF  UNSUCCESSFUL,  STATUS 
AND  THE  FUNCTION  VALUE  ARE  SET  TO  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI  INTERFACE 


ARGUMENTS : 


OBJJTYPE 

DESC_TYPE 

OBJ_NO 

STATUS 


CHAR  [] 
CHAR  [] 
INT  * 
INT  * 


INCLUDE  FILES: 


CSTDTYP 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DEPENT 

PURPOSE:  SELECT  ALL  THE  DEPENDANT  ENTITY  CLASSES 

LANGUAGE:  C 

SOURCE  FILE:  DEPENT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


IN  THE  STRUCTURE  OF  THE  FROM-MODEL. 


SYNOPSIS 

C 

& ATTRFLAG , 
&MODELNO, 


DEPENT (&EC_NO,  &MODEL_NAME ,  &KEYWORD_FLAG , 
&ALIAS_FLAG ,  &DESC_FLAG, 

&DEOEBT_FLAG,  4NKEY_FLAG , 

&FROM_MODEL_NO, &DEPECLIST, EC_NO) 


COBOL  —  CALL  "DEPENT"  USING 

MODEL-NO, 

MODEL-NAME, 

KEYWORD-FLAG, 

ALIAS-FLAG, 

DESC-FLAG, 

ATTR-FLAG, 

DEPENT-FLAG, 

NKEY-FLAG , 

FROM-MODEL-NO, 

DEP-EC-LIST , 

EC-NO. 

FORTRAN  —  CALL  DEPENT (MODELNO,  MODELNAME, 
KEYWORDFLAG ,  ALIAS FLAG, 


DESCFLAG , ATTRFLAG , DEPENTFLAG , NKEYFLAG , 


MODELNO , FROMMODELNO , DEPECLI ST , ECNO ) 
INPUT: 

I NT  *EC_NO  ; 

CHAR  *MODEL_NAME  ; 

CHAR  *KEYWORD_FLAG  ; 

CHAR  *ALIAS_FLAG  ; 

CHAR  *DESC_FLAG  ; 

CHAR  *ATTR_FLAG  ; 

CHAR  *DEPENT_FLAG  ; 

CHAR  *NKEY_FLAG  ; 

INT  *MODEL_NO  ; 

I NT  *FROM_MODEL_NO  ; 

INT  *DEP  EC  LIST  ; 
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DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  RETRIEVE  RECORDS  FROM 
ATTRIBUTE_CLASS ,  ATTRI BUTE_NAME ,  DOMAIN_CLASS ,  THEN  USE 
THE  INFORMATION  TO  GENERATE  NDDL  COMMAND  STATEMENT. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
I NTERFACE 

3/22/89:  REWRITTEN  TO  TAKE  OUT  'CONNECT  BY  PRIOR'  TO  MAKE 
STANDARD  SQL. 

THIS  WILL  EMULATE  THE  ORACLE  SQL  COMMAND: 

SELECT  B.EC_NAME,  B.EC_NO 
FROM  ENTITY_NAME  B 

WHERE  B.EC_NAME_TYPE  =  'PRIMARY'  AND 
B . EC_NO  IN 

(  SELECT  UNIQUE  DEP_EC_NO  FROM  LINK_RELATION 
CONNECT  BY  PRIOR  DEP_EC_NO  =  IND_EC_NO 
START  WITH  IND_EC_NO  =  :EC_NO_SQL  ) 

ORDER  BY  LEVEL,  EC_NO; 

REWRITTEN  8/1/89:  TO  HANDLE  BOTH  CATEGORY  AND  LINK  RELATIONS, 
THE  SELECT  THE  WENT  THRU  THE  RELATION  WAS  REMOVED  AND 
NOW  THE  EC-NO  IS  BEING  SUPPLIED  BY  A  COBOL  DRIVER  THAT 
GOES  THRU  A  COBOL  LIST  THAT  WAS  CREATED  WHEN  TRAVERSING  THRU 
BOTH  CATEGORY  AND  LINK  STRUCTURES. 

ARGUMENTS: 


EC_NO  INT  * 

MODEL_NAME  CHAR  * 

KEYWORD_FLAG  CHAR  * 

ALIAS_FLAG  CHAR  * 

DESC_FLAG  CHAR  * 

ATTR_FLAG  CHAR  * 

DEPENT_FLAG  CHAR  * 

NKEY_FLAG  CHAR  * 

MODEL_NO  INT  * 

FROM_MODEL_NO  INT  * 

DEP  EC  LIST  INT  * 


INCLUDE  FILES: 


STDIO 

EOD 

ROUTINES  CALLED: 


STRNCPY 

ERRRPT 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLAD2 

SQLFCH 

FNDEC 

GENENT2 
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NAME:  DESCRB 

PURPOSE:  COMMAND  PROCESSOR  FOR  THE  NDDL  DESCRIBE  COMMAND 

LANGUAGE:  C 

SOURCE  FILE:  DESCRB 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DESCRB  (&MODEL_NO) 

COBOL  —  CALL  "DESCRB"  USING 

MODEL-NO. 

FORTRAN  —  CALL  DESCRB  (MODELNO) 

INPUT: 

INT  *MODEL_NO 
OUTPUT: 

DESCRIPTION 

DESCRB  VERIFIES  THAT  THE  DESCRIPTION  TYPE  AND  THE  OBJECT 

TO  BE 

DESCRIBED  IS  VALID  AND  EXISTS.  THE  DESCRIPTION  INPUT 
TYPE  (EDITOR, 

FILE  OR  ENTERED  TEXT)  IS  DETERMINED.  THE  DESCRIPTIONS 
ARE  THEN 

ENTERED  INTO  THE  CDM. 


ARGUMENTS : 


MODEL  NO 


INT  * 


INCLUDE  FILES: 


CSTDTYP 

LISTID 

ROUTINES  CALLED: 


CPFONE 

VEROBJ 

TXTTYP 

ESCPY 

STRNCPY 

FILEINS 

STRINS 

LOADESC 

TOUPPER 

VERDSTP 

SPRINTF 

UERROR 
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NAME:  DLDITAG 

PURPOSE:  DELETE  FROM  AUC_IS_MAPPING  A  TAG  THAT  IS  MAPPED 

LANGUAGE:  C 

SOURCE  FILE:  DLDITAG 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THRU  A  COMPLEX  MAPPING  ALGORITHM,  FOR  THE  CASE, 
WHERE  THE  TAG  MAPS  TO  A  DATAITEM  IN 
COMPLEX_MAPPING_PARM . 

SYNOPSIS 

C  —  DLDITAG (PREF-NO,  TAG_NO ,  STATUS) 

COBOL  —  CALL  "DLDITAG”  USING 

PREF-NO 
TAG_NO 
RET-STATUS . 

FORTRAN  —  CALL  DLDITAG  ( PREF-NO , TAG_NO , STATUS ) 

INPUT: 

PREF-NO 

TAG_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  DELETE 
FROM  AUC_IS_MAPPING 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


PREF_NO 

TAG_NO 

STATUS 


INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DLDSL2 

PURPOSE:  DELETE  A  RECORD  FROM  DF_SET_LINKAGE  ENTITY 

LANGUAGE:  C 

SOURCE  FILE:  DLDSL2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DLDSL2 (&DB_ID,  SET_ID,  & STATUS) 

COBOL  —  CALL  "DLDSL2"  USING 

DB-ID, 

SET-ID, 

STATUS . 

FRTRAN  —  CALL  DLDSL2 (DBID,  SETID,  STATUS) 

INPUT: 

INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DF_SET_LINKAGE 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

ARGUMENTS: 


DB_ID  INT  * 

SET_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DLMIGRC 

PURPOSE:  DELETE  MIGRATING  KEY  CLASS 

LANGUAGE:  C 

SOURCE  FILE:  DLMIGRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


ONLY  THRU  A  SINGLE  RELATION  CLASS 
SYNOPSIS 

C  —  DLMIGRC ( &TAG_NO , &RC_NO ) 

COBOL  —  CALL  "DLMIGRC"  USING 

TAG-NO 
RC_NO 
STATUS . 

FORTRAN  —  CALL  DLMIGRC  ( TAGNO , RCNO , STATUS ) 

INPUT: 

INT  *TAG_NO 
INT  *RC_NO 
INT  *RTNSTA 
OUTPUT: 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SELECT  STATEMENT  TO  RETRIEVE 

ALL 

MIGRATING  KEY  CLASSES  GIVEN  A  TAG  NUMBER.  ROUTINES  ARE 
CALLED 

WHICH,  FOR  EACH  NEW  TAG  NUMBER  SELECTED,  DELETE  THE 
INHERITED 

ATTRIBUTE  CLASS,  ATTRIBUTE  USE  CLASS,  COPY  CROSS  REFERENCE 

AND 

KEY  CLASS  MEMBER  ENTITIES  WHOSE  TAG  NUMBERS  MATCH. 

THE  QUERY  IS  PHRASED  SUCH  THAT  ONLY  THE  ATTRIBUTES 
INHERITED  THRU  A  SINGLE  RELATION  CLASS  ARE  DELETED, 

NOT  EVERYWHERE  THAT  ATTRIBUTE  IS  MIGRATED  TO. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

3/23/89:  REWRITTEN  TO  REPLACE  'CONNECT  BY  PRIOR'  TO  MAKE 
STANDARD  SQL. 

THIS  REPLACED  THE  ORACLE  SQL  STATEMENT: 

SELECT  UNIQUE  TAG_NO 

FROM  INHERITED_ATT_USE 

CONNECT  BY  PRIOR  TAG_NO  =  KCM_TAG_NO 

START  WITH  KCM_TAG_NO  =  : TAG_NO_SQL  AND  RC_NO  = 

:RC_NO_SQL; 

ARGUMENTS : 


TAG_NO  INT  * 
RC_NO  INT  * 
RTNSTA  INT  * 
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INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

LLIST 

ROUTINES  CALLED: 


SQLAB2 

SQLAD2 

SQLBS2 

SQLCLS 

DELIAUC 

SPRINTF 

UERROR 

ADDRNUM 

FRELST2 

ERRRPT 

DELKCMT 

DELAUCL 

SQLEXE 

SQLFCH 

INSNODE 

SQLOSQ 

SQLSCA 

SQLSCC 

SQLSCH 

SQLTOC 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DLMTMAP 

PURPOSE:  DELETE  FROM  AUC_IS_MAPPING  A  TAG  THAT  IS  MAPPED 

LANGUAGE:  C 

SOURCE  FILE:  DLMTMAP 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THRU  A  COMPLEX  MAPPING  ALGORITHM,  FOR  THE  CASE, 
WHERE  THE  TAG  NO  LONGER  EXISTS  IN 
COMPLEX_MAPPING_PARM . 

SYNOPSIS 

C  —  DLMTMAP (PREF-NO,  STATUS) 

COBOL  —  CALL  " DLMTMAP1'  USING 

PREF-NO 
RET-STATUS . 

FORTRAN  —  CALL  DLMTMAP  (PREF-NO, STATUS) 

INPUT: 

PREF-NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  DELETE 
FROM  AUC_IS_MAPPING 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


PREF_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DLTPRFA 

PURPOSE:  DELETE  FROM  AUC_IS_MAPPING  A  TAG  THAT  WAS  MAPPED 

LANGUAGE:  C 

SOURCE  FILE:  DLTPRFA 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THRU  A  COMPLEX  MAPPING  ALGORITHM,  AND  THAT  TAG 
WAS  THE  FIRST  PREFERENCE  MAPPING. 

IN  ACCORDANCE  WITH  THE  CURRENT  PHILOSOPHY, 

WHEN  THE  FIRST  PREFERENCE  IS  DELETED,  ALL 
PREFERENCE  MAPPINGS  OF  THE  TAG  MUST  ALSO  BE 
DELETED.  THIS  ROUTINE  SEARCHES  FOR  AND  DELETES  SECONDARY 

MAPPINGS  WHEN  IT  LOCATES  A  TAG  WITHOUT  ITS 
FIRST  PREFERENCE  MAPPING . 

SYNOPSIS 

C  —  DLTPRFA (  TAGNO,  STATUS) 

COBOL  —  CALL  "DLTPRFA”  USING 

TAGNO 
RET-STATUS . 

FORTRAN  —  CALL  DLTPRFA  (TAG_NO, STATUS) 

INPUT:  TAG_NO 

OUTPUT:  STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  DELETE 
FROM  AUC_IS_MAPPING 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS: 


TAG_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DMIGKKC 

PURPOSE:  DELETE  MIGRATING  KEY  CLASS, 

LANGUAGE:  C 

SOURCE  FILE:  DMIGKKC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


QUALIFYING  ON  KC_NO  AND  TAG_NO 

SYNOPSIS 

C  ~  DMIGKKC ( &TAG_NO , KC_NO ) 

COBOL  —  CALL  "DMIGKKC"  USING 

TAG-NO 

KC-NO. 

FORTRAN  —  CALL  DMIGKKC  (TAGNO,  KC-NO) 

INPUT: 

INT  *TAG_NO 
INT  *KC_NO 
OUTPUT: 

INT  *STATUS 
DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SELECT  STATEMENT  TO  RETRIEVE 

ALL 

MIGRATING  KEY  CLASSES  GIVEN  A  TAG  NUMBER, AND  KEY  CLASS 
NUMBER,  AS  THE  STARTING  POINT.  ROUTINES  ARE  CALLED 
WHICH,  FOR  EACH  NEW  TAG  NUMBER  SELECTED,  DELETE  THE 
INHERITED 

ATTRIBUTE  CLASS,  ATTRIBUTE  USE  CLASS  AND 
KEY  CLASS  MEMBER  ENTITIES  WHOSE  TAG  NUMBERS  MATCH. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
I NTERF ACE 

3/23/89:  REWWRITTEN  TO  TAKE  OUT  'CONNECT  BY  PRIOR'  TO  MAKE 

STANDARD  SQL. 

THE  ORACLE  SQL  STATEMENT  REPLACED  WAS: 

SELECT  UNIQUE  TAG_NO 
FROM  INHERITED_ATT_USE 
CONNECT  BY  TAG_NO  =  KCM_TAG_NO 

START  WITH  KCM_TAG_NO  =  : TAG_NO_SQL  AND  KC_NO  = 
:KC_NO_SQL; 

ARGUMENTS : 


TAG_NO  INT  * 
KC_NO  INT  * 
RTNSTA  INT  * 

INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

LLIST 
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ROUTINES  CALLED: 


SQLAB2 

SQLAD2 

SQLBS2 

SQLCLS 

DELIAUC 

SPRINTF 

UERROR 

ADDRNUM 

FRELST2 

ERRRPT 

DELKCMT 

DELAUCL 

SQLEXE 

SQLFCH 

INSNODE 

SQLOSQ 

SQLSCA 

SQLSCC 

SQLSCH 

SQLTOC 


DOCGROUP  PS41100  Module  Documentation 
NAME:  DMIGKRC 

PURPOSE:  DELETE  MIGRATING  KEY  CLASS, 

LANGUAGE:  C 

SOURCE  FILE:  DMIGKRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


QUALIFYING  ON  RC_NO  AND  TAG_NO 

SYNOPSIS 

C  —  DMIGKRC ( &TAG_NO , RC_NO ) 

COBOL  —  CALL  "DMIGKRC"  USING 

TAG-NO 

RC-NO. 

FORTRAN  —  CALL  DMIGKRC  (TAGNO,  RC-NO) 

INPUT: 

I NT  *TAG_NO 
INT  *RC_NO 
OUTPUT: 

INT  * STATUS 
DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SELECT  STATEMENT  TO  RETRIEVE 

ALL 

MIGRATING  KEY  CLASSES  GIVEN  A  TAG  NUMBER, AND  RELATION 

CLASS 

NUMBER,  AS  THE  STARTING  POINT.  ROUTINES  ARE  CALLED 
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WHICH,  FOR  EACH  NEW  TAG  NUMBER  SELECTED,  DELETE  THE 
INHERITED 

ATTRIBUTE  CLASS,  ATTRIBUTE  USE  CLASS  AND 
KEY  CLASS  MEMBER  ENTITIES  WHOSE  TAG  NUMBERS  MATCH. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
I NTERFACE 

3/29/89:  REWRITTEN  TO  REMOVE  'CONNECT  BY  SQL'  TO  MAKE 

STANDARD  SQL. 

THE  ORACLE  SQL  STATEMENT  REPLACED  WAS: 

•SELECT  UNIQUE  TAG_NO 
FROM  INHERITED_ATT_USE 
CONNECT  BY  PRIOR  TAG_NO  =  KCM__TAG_NO 
START  WITH  KCM_TAG_NO  =  : TAG_NO_SQL  AND 
RC_NO  =  :RC_NO_SQL' 


ARGUMENTS : 


TAG_NO  INT  * 
RC_NO  INT  * 
RTNSTA  INT  * 

INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

LLIST 

ROUTINES  CALLED: 


SQLAB2 

SQLAD2 

SQLBS2 

SQLCLS 

DELIAUC 

SPRINTF 

UERROR 

ADDRNUM 

FRELST2 

ERRRPT 

DELKCMT 

DELAUCL 

SQLEXE 

SQLFCH 

INSNODE 

SQLOSQ 

SQLSCA 

SQLSCC 

SQLSCH 

SQLTOC 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DPKCLST 

PURPOSE:  CREATE  AN  KEY_CLASS_LIST  TABLE  CONTAINING  ALL  THE 
ENTITY 
LANGUAGE:  C 
SOURCE  FILE:  DPKCLST 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CLASS  MEMBERS  IN  THE  STRUCTURE ,  THEIR 
KEY  CLASS  NOS  AND  NAMES  AND  TAG 
NUMBERS  AND  NAMES. 

SYNOPSIS 

C  —  DPKCLST ( &MODEL_NO ,  &EC_NO,  DEP_EC_LIST, 

DE  PENT_FLAG )  ; 

COBOL  —  CALL  "DPKCLST"  USING 

MODEL-NO 

EC-NO 

DEP-EC-LIST 

DEPENT-FLAG. 

FORTRAN  —  CALL 

DPKCLST (MODELNO , ECNO , DEPECLIST , DEPENTFLAG) 

INPUT: 

INT  *MODEL_NO  ; 

INT  *FROM_EC_NO  ; 

INT  *DEP_EC_LIST  ; 

CHAR  *  DEPENT__FLAG  ; 

DESCRIPTION: 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
I NTERF ACE 

3/16/89:  REWRITTEN  TO  TAKE  OUT  'CONNECT  BY  PRIOR'  TO  MAKE 

STANDARD  SQL. 

THIS  WILL  EMULATE  THE  ORACLE  SQL  COMMAND: 

SELECT  K . EC_NO , 

K . KC_NO , 

K.KC_NAME, 

A.TAG_NO, 

A . TAG_NAME 
FROM  KEY_CLASS  K, 

KEY_CLASS_MEMBER  KCM, 

ATTRIBUTE_USE_CLASS  A 
WHERE  K . KC_NO  =  KCM.KC_NO  AND 

KCM . TAG_NO  =  A . TAG_NO  AND 
K . EC_NO  IN 

(  SELECT  UNIQUE  DEP_EC_NO 
FROM  LINK_RELATION 

CONNECT  BY  PRIOR  DEP_EC_NO  =  IND_EC_NO 
START  WITH  IND_EC_NO  =  : FROM_EC_NO_SQL  ) 

REWRITTEN  8/1/89:  TO  HANDLE  CATEGORY  AND  LINK  RELATIONS, 

REMOVED  THE  FIRST  SELECT  BEACUSE  THIS  IS  NOW 
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CALLED 
A  COBOL 
TRAVERSES  DOWN 

ARGUMENTS : 


BY  A  COBOL  PROG  THAT  SELECTS  THE  EC-NO  FROM 
LIST  THAT  WAS  BUILT  PRIOR  TO  THIS  THAT 
BOTH  CATEGORY  AND  LINK  STRUCTURES 


MODEL_NO 
FROM_EC_NO 
DEP_EC_LIST 
DEPENT  FLAG 


INT  * 
INT  * 
INT  * 
CHAR  * 


INCLUDE  FILES: 


STDIO 

EOD 


ROUTINES  CALLED: 


SQLAB2 

SQLAD2 

SQLBS2 

SQLCLS 

ERRRPT 

SQLEXE 

SQLFCH 

FNDEC 

AKCROW 

STRNCPY 

SQLOSQ 

SQLSCA 

SQLSCC 

SQLSCH 

SQLSQS 

SQLTOC 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DRPDF 

PURFOSE:  DELETE  A  RECORD  FROM  DATA_FIELD  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DRPDF 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DRPDF (DF_N0,  & STATUS) 

COBOL  —  CALL  ” DRPDF”  USING 

DF-NO, 

STATUS . 

FORTRAN  —  CALL  DRPDF (DFNO,  STATUS) 

INPUT: 

I NT  *DF_NO? 

OUTPUT: 

INT  * STATUS  ? 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DATA_FIELD 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DF_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  ECSTRUC 

PURPOSE:  SELECT  ALL  DEPENDENT  ENTITIES  IN  THE  TREE  STRUCTURE 

LANGUAGE:  C 

SOURCE  FILE:  ECSTRUC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FOR  A  GIVEN  ENTITY  AND  INSERT  IT  INTO  THE 

EC-KC-KCM 

UNBOUNDED  C  STRUCTURE  BY  CALLING  BLECLST. 

SYNOPSIS 

C  —  ECSTRUC (EC_NO,DEP_EC-LIST,DEPENT_FLAG) 

COBOL  —  CALL  "ECSTRUC''  USING 

EC-NO 

DEP-EC-LIST 

DEPENT-FLAG 

FORTRAN  —  CALL  ECSTRUC  (ECNO, DEPECLIST, DEPENTFLAG) 

INPUT: 

*EC_NO 

*DEP  EC  LIST 
CHAR  *  DEPENT_FLAG 
OUTPUT: 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
I NTERFACE 

3/17/89:  REWRITTEN  TO  TAKE  OUT  'CONNECT  BY  PRIOR'  TO  MAKE 

STANDARD  SQL 

THIS  ROUTINE  WILL  EMULATE  THE  ORACLE  SQL  STMT: 

SELECT  A . EC_NAME ,  A.EC_NO 
FROM  ENTITY_NAME  A 

WHERE  A.ECNAM^TYPF  =  'PRIMARY'  AND 
A. EC  NO  IN 
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(  SELECT  UNIQUE  DEP_EC_NO  FROM  LINK_RELATION 
CONNECT  BY  PRIOR  DEP_EC_NO  =  IND_EC_NO 
START  WITH  IND_EC_NO  =  :EC_NO_SQL) 

ORDER  BY  A . EC_NO  DESC; 

REWRITTEN  8/1/89:  TO  HANDLE  BOTH  LINK  AND  CATEGORY  RELATIONS, 

THIS  NOW  IS  CALLED  BY  A  COBOL  DRIVER  THAT 


SELECTS  EC-NO 
THRU  BOTH 


FROM  A  COBOL  LIST  BUILT  AFTER  TRAVERSING 
CATEGORY  AND  LINK  STRUCTURES 


ARGUMENTS : 


EC_NO 

DEP_EC_LIST 
DEPENT  FLAG 


INT  * 

I  NT  * 
CHAR  * 


INCLUDE  FILES: 


STDIO 

EOD 


ROUTINES  CALLED: 


SQLAB2 

SQLAD2 

SQLBS2 

SQLEXE 

SQLFCH 

FNDEC 

BLECLST 

STRNCPY 

ERRRPT 

SQLOPN 

SQLOSQ 

SQLSCA 

SQLSCC 

SQLSCH 

SQLTFL 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UWARN 

PURPOSE:  ISSUE  A  WARNING  MESSAGE  TO  THE  USER 

LANGUAGE:  C 

SOURCE  FILE:  ERRORS 

SOURCE  FILE  TYPE:  INP 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SFORMS 


DESCRIPTION: 


SYNOPSIS 

C  —  UWARN (MESG) 

COBOL  —  CALL  "UWARN"  USING 

MESG-DESC. 

FORTRAN  —  CALL  UWARN  (MESG) 

INPUT: 

MESG  A  CHARACTER  STRING  CONTAINING  THE  ERROR 

MESSAGE  FOR  THE  USER.  IF  NOT  NULL 
TERMINATED,  THE  60TH  CHARACTER  WILL  BE 
MADE  A  NULL.  (  TRUNCATION) 

OUTPUT: 

DESCRIPTION 

TRUNCATE  THE  MESSAGE  TO  60  CHARACTERS  AND  DEPENDING  ON 
THE  MODE,  ISSUE  THE  PROPER  CALL  TO  HANDLE  THE  MESSAGE. 
FOR  BATCH,  USE  THE  PRINTF  WHICH  WILL  GO  TO  STANDARD 
OUTPUT. 

ALSO,  INCREMENT  THE  GLOBAL  WARNING  ERROR  COUNT. 


ARGUMENTS  .* 


MESG  CHAR  * 
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INCLUDE  FILES: 


STDIO 

NDDLEX 

CMDIDEX 


ROUTINES  CALLED: 


CRTERR 

PMSGLS 

PRINTF 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UERROR 

PURPOSE:  ISSUE  A  FATAL  ERROR  MSG,  COMMAND  IS  ROLLED  BACK 

LANGUAGE:  C 

SOURCE  FILE:  ERRORS 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


DESCRIPTION: 


SYNOPSIS 

C  —  UERROR (MESG) 


COBOL  —  CALL  "UERROR"  USING 

MESG-DESC. 

FORTRAN  —  CALL  UERROR  (MESG) 

INPUT: 


MESG  A  CHARACTER  STRING  CONTAINING  THE  ERROR 
MESSAGE  FOR  THE  USER.  IF  NOT  NULL 
TERMINATED,  THE  60TH  CHARACTER  WILL  BE 
MADE  A  NULL.  (  TRUNCATION) 

OUTPUT: 

DESCRIPTION 

TRUNCATE  THE  MESSAGE  TO  60  CHARACTERS  AND  DEPENDING  ON 

THE  MODE,  ISSUE  THE  PROPER  CALL  TO  HANDLE  THE  MESSAGE. 

FOR  BATCH,  USE  THE  PRINTF  WHICH  WILL  GO  TO  STANDARD 

OUTPUT. 

ALSO,  INCREMENT  THE  GLOBAL  WARNING  ERROR  COUNT. 

ISSUE  A  MESSAGE  TO  THE  USER,  CONSIDERED  A 

ERROR  BY  THE  CALLER.  NOTE  THESE  TYPES 
OF  ERRORS  ARE  ENOUGH  TO  ROLL  BACK  THE 
EFFECTS  OF  THE  COMMAND. 
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ARGUMENTS : 


MESG  CHAR  * 


INCLUDE  FILES: 


STDIO 

NDDLEX 

CMDIDEX 


ROUTINES  CALLED: 


CRTERR 

PMSGLS 

PRINTF 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  ERRRPT 

PURPOSE:  HANDLE  ANY  ERROR  CODE  FROM  ORACLE 

LANGUAGE:  C 

SOURCE  FILE:  ERRORS 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


DESCRIPTION: 


SYNOPSIS 

C  —  ERRRPT (  RETCODE,  MESG,  MOD_NAME) 

COBOL  —  CALL  " ERRRPT"  USING 

RET-CODE, 

MESG-DESC, 

MODULE-NAME . 

FORTRAN  —  CALL  ERRRPT ( RETCOD ,  MESG,  MODNAM) 

INPUT: 

RETCODE  —  THE  ORACLE  ERROR  CODE. 

MESG  A  CHARACTER  STRING  CONTAINING  THE  ERROR 
MESSAGE  FOR  THE  ERROR  LOG. 

MOD_NAME  —  THE  NAME  OF  THE  MODULE  EXPERIENCING 

THE  ORACLE  ERROR. 

OUTPUT: 

DESCRIPTION 

COMBINE  THE  RETURN  CODE,  THE  MESSAGE,  AND  THE 

MODULE  NAME  INTO  A  SINGLE  MESSAGE  AND 

USE  "ERRPRO"  TO  PUT  IT  INTO  THE  ERROR  LOG. 

THEN  CALL  THE  ORACLE  ROUTINE  OERMSG  TO 
TO  GET  THE  EXPANDED  ERROR  MESSAGE. 

AND  PLACE  THE  ORACLE  ERROR  MESSAGE  ON  THE  LOG. 
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ARGUMENTS : 


RETCODE 
MESG 
MOD  NAME 


INT 

CHAR  * 
CHAR  * 


INCLUDE  FILES: 


STDIO 

NDDLEX 

CMDIDEX 


ROUTINES  CALLED: 


ERRPRO 

SPRINTF 
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NAME:  FREELST 
PURPOSE : 

LANGUAGE:  C 
SOURCE  FILE:  FREELST 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


DEL  NODE  ECUSED  * 


INCLUDE  FILES: 


STDIO 

LLIST 


ROUTINES  CALLED: 


FREELST 

FREE 
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NAME:  FRELST1 

PURPOSE:  FREE  MEMORYUSED  BY  LINKED  LIST 

LANGUAGE:  C 

SOURCE  FILE:  FRELST1 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


LLIST1  *DEL_NODE; 

CALLED  BY: 

BLOOPCK,  TLOOPCK 


ARGUMENTS : 


DEL  NODE  LLIST1  * 


INCLUDE  FILES: 


STDIO 

LLIST 


ROUTINES  CALLED: 


FRELST1 

FREE 


3-1267 


r 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  FRELST2 

PURPOSE:  FREE  MEMORY  USED  BY  LINKED  LIST. 

LANGUAGE:  C 

SOURCE  FILE:  FRELST2 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


INPUT: 

LLIST2  *DEL_NODE; 

CALLED  BY: 

DLMIGRC,  DMIGKKC ,  DMIGKRC ,  DPKCLST,  DPKCLS1 
DESCRIPTION: 

THIS  ROUTINE  WILL  FREE  UP  MEMORY  USED  BY  LISTS  CONTAINING 
INFORMATION  RETREIVED  FROM  THE  DATABASE. 


ARGUMENTS : 


DEL  NODE  LLIST2  * 


INCLUDE  FILES: 


LLIST 

STDIO 


ROUTINES  CALLED: 
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FRELST2 

FREE 
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NAME:  GETECNM 

PURPOSE:  THIS  ROUTINE  SEARCHES  THE  UNBOUNDED  EC  LIST  DATA 

LANGUAGE:  C 

SOURCE  FILE:  GETECNM 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


STRUCTURE  FOR  A  MATCHING  ROW  GIVEN  EC  NO 

AND  RETURNS 

EC_NAME . 

SYNOPSIS 

C  —  GETECNM (&EC_NO,  &EC_NAME ,  &STATUS ) 

COBOL  —  CALL  "GETECNM"  USING 

EC-NO, 

EC-NAME, 

STATUS . 

FORTRAN  —  CALL  GETECNM ( ECNO ,  ECNAME,  STATUS) 
INPUT: 

INT  *EC_NO  ; 

CHAR  *EC_NAME  ; 

INT  *STATUS  ; 

OUTPUT: 

DESCRPIPTION : 


ARGUMENTS : 


EC_NO 

EC_NAME 

STATUS 


INT  * 
CHAR  * 
INT  * 
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INCLUDE  FILES: 
KEYLIST 

ROUTINES  CALLED: 
STRNCPY 
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NAME :  GETGLOB 

PURPOSE:  WILL  PROVIDE  GLOBAL  VARIABLES 

LANGUAGE:  C 

SOURCE  FILE*.  GETGLOB 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  GETGLOB (DB_ID,  DB_NAME ,  HOST_NAME,  DBMS_NAME, 

STATUS) 

COBOL  —  CALL  " GETGLOB"  USING 

DB_ID, 

DB_NAME , 

HOST_NAME, 

DBMS_NAME, 

STATUS. 

FORTRAN  —  CALL 

GETGLOB ( DB_ID, DB_NAME , HOST_NAME , DBMS_NAME , STATUS ) 

INPUT: 

OUTPUT: 

DB_ID, 

DB_NAME , 

HOST_NAME 
DBMS_NAME , 

STATUS . 

DESCRIPTION 

THIS  ROUTINE  WILL  GET  THE  FOLLOWING  4  GLOBAL  VARIABLE 

1.  CUR_DBID  (CURRENT  DATABASE  ID) 

2.  CUR_DBNAME  (CURRENT  DATABASE  NAME) 

3.  CUR_HOST  (CURRENT  HOST  NAME  ) 

4.  CUR_DBMS  (CURRENT  DATABASE  MANAGEMENT) 
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IF  ALL  4  ABOVE  GLOBAL  VARIAVLES  ARE  DEFINED,  THEN 
THE  RETURN  STATUS  IS  0,  OTHERWISE  -1 


ARGUMENTS : 


DB_ID 

DBNAME 

HOST_NAME 

DBMSNAME 

STATUS 


INT  * 
CHAR  * 
CHAR  * 
CHAR  * 
INT  * 


ROUTINES  CALLED: 
STRNCPY 
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NAME:  GETNCHR 

PURPOSE:  GET  THE  NEXT  CHARACTER  FROM  EITHER  STANDARD  INPUT 

LANGUAGE:  C 

SOURCE  FILE:  GETNCHR 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


OR  FORMS  COMMAND  BUFFER  DEPENDING  ON  MODE 

SYNOPSIS 

C  —  GETNCHR (& CHR, & FLAG) 

COBOL  —  CALL  "GETNCHR"  USING 

CHR 

FLAG. 

FORTRAN  —  CALL  GETNCHR (CHR, FLAG) 

INPUT: 

OUTPUT: 

CHAR  *CHR 
INT  *FLAG 
DESCRIPTION 

GETNCHR  GETS  THE  NEXT  CHARACTER  FROM  THE  INPUT  SOURCE 
DEPENDING 

ON  WHETHER  IN  BATCH  MODE  (STANDARD  INPUT)  OR  INTERACTIVE 
OR  UIMS 

MODES  (FORMS  COMMAND  BUFFER).  IF  OK,  FLAG  =  0,  IF  NEWLINE 
CHARACTER,  FLAG  =  1,  IF  TAB  CHARACTER,  FLAG  -  2  AND  IF  EOF, 
FLAG  =  3.  ALSO,  IF  EOF  ENCOUNTERED,  THE  GLOBAL  SKIP_FLAG 
IS  SET 

TO  EOF. 

MODIFICATION  -  02/09/89  -  CHANGED  CHR  TO  BE  CHAR  INSTEAD  OF 
INT. 
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ARGUMENTS : 


CHAR  * 
I  NT  * 


CHR 

FLAG 


INCLUDE  FILES: 


CSTDTYP 

STDIO 

NDDLEX 

FORMSEX 


ROUTINES  CALLED: 
GETCHAR 
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NAME:  GETNNUM 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  GETNNUM 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  GETNNUM  (POOL_NO,  NEXT_NO) 

COBOL  —  CALL  "GETNNUM"  USING 

POOL-NO, 

NEXT_NO . 

FORTRAN  —  CALL  GETNNUM  (POOLNO,NEXT_NO) 

INPUT: 

INT  *POOL_NO  ; 

OUTPUT: 

INT  *NEXT_NO  ; 

NEXT_NO  WILL  BE  A  ZERO  IF  ANY  TROUBLES  WERE  FOUND 
DESCRPIPTION 

THIS  ROUTINE  RETURNS  A  UNIQUE  NUMBER  FOR  A  POOL  NUMBER 


ARGUMENTS: 


POOL_NO  INT  * 

NEXT  NO  INT  * 
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ROUTINES  CALLED: 


GETNXNO 

ERRPRO 

SPRINTF 

UERROR 
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NAME:  GETNXNO 

PURPOSE:  GET  A  NUMBER  THE  REUSABLE  POOL 

LANGUAGE:  C 

SOURCE  FILE:  GETNXNO 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  GETNXNO  (POOL_NO,  NEXT_NO ,  STATUS) 

COBOL  —  CALL  "GETNXNO"  USING 

POOL-NO, 

NEXT_NO, 

STATUS . 

FORTRAN  —  CALL  GETNXNO  ( POOLNO , NEXTNO , STATUS ) 
INPUT: 

INT  *POOL_NO  ; 

OUTPUT: 

INT  *NEXT_NO  ; 

INT  *STATUS  ; 

DESCRPIPTION 

THIS  ROUTINE  GET  A  UNIQUE  NUMBER  OF  A  POOL  NUMBER  FROM 
NEXT_NUMBER 

RELATION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


POOL_NO  INT  * 

NEXT  NO  INT  * 
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STATUS 


INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

UPDNXNO 

ERRRPT 

SQLAD2 

SQLFCH 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  HALT 

PURPOSE :  HALT  WITH  *  COMMIT '  OR  • ROLLBACK ' . 

LANGUAGE:  C 

SOURCE  FILE:  HALT 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  HALT (& STATUS) 

COBOL  —  CALL  "HALT"  USING 

STATUS . 

FORTRAN  —  CALL  HALT  (STATUS) 

INPUT: 

NONE 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION • 

THIS  ROUTINE  PROCESSES  THE  'HALT'  COMMAND  WITH  'COMMIT' 
OR  'ROLLBACK' 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 


ARGUMENTS : 

STATUS  INT  * 


INCLUDE  FILES: 
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LISTID 

NDDLEX 


ROUTINES  CALLED: 


CPFONE 

ROLBACK 

COMMIT 
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NAME:  INITSES 

PURPOSE:  PERFORM  ANY  SESSION  INITIALIZATION  NECESSARY 

LANGUAGE:  C 

SOURCE  FILE:  INITSES 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  INITSES ( ) 

COBOL  —  CALL  "INITSES". 

FORTRAN  —  CALL  INITSES 

INPUT: 

OUTPUT: 

DESCRIPTION 

CURRENTLY  DEFINED  MODE  IS  BATCH: 

DO  : 

THE  ORACLE  LOGON  (VIA  VERTYP) , 
SET  AUTOCOMMIT  OFF. 


INCLUDE  FILES: 


FPPARM 

FPCODE 

OK 

NDDLEX 
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ROUTINES  CALLED: 


HOOK_FORM 

STRNCPY 

VERTYP 

STRNCMP 

SPRINTF 

UERROR 

ERRPRO 
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NAME:  HOOK_FORM 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  INITSES 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


INCLUDE  FILES: 


FPPARM 

FPCODE 

OK 

NDDLEX 


ROUTINES  CALLED: 


INITFP 

OPNFRM 

STRNCMP 

SPRINTF 

UERROR 

ERRPRO 

ADDFRM 


3-1284 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSAC 

PURPOSE:  INSERT  A  RECORD  INTO  ATTRIBUTE  CLASS 

LANGUAGE:  C 

SOURCE  FILE:  INSAC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 

&STATUS) 

COBOL 


FORTRAN 
INPUT: 

INT  *AC_NO  ; 

INT  *MODEL_NO  ; 

INT  *DOMAIN_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
ATTRI BUTE_NAME 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


VALUES  ( AC_NO , MODEL_NO , DOMAINNO )  ; 


INSAC ( &AC_NO ,  &MODEL_NO ,  &DOMAINNO, 

CALL  "INSAC"  USING 
AC-NO, 

MODEL-NO, 

DOMAIN-NO, 

STATUS . 

CALL  INSAC (ACNO,  MODELNO ,  DOMAINNO,  STATUS) 
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ARGUMENTS : 


AC_NO 

MODEL_NO 

DOMAINNO 

STATUS 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 


INT  * 
INT  * 
INT  * 
INT  * 
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NAME:  INSACNM 

PURPOSE:  INSERT  A  RECORD  INTO  ATTR I BUTE_NAME 

LANGUAGE:  C 

SOURCE  FILE:  INSACNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 

&STATUS) 

COBOL 


FORTRAN 
STATUS) 

INPUT: 

INT  *AC  NAME  ; 

INT  *AC~NO  ; 

INT  *AC_NAME_TYPE  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
ATTRI BUTE_NAME 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


VALUES  ( AC_NO , AC_NO , AC_NAME_T YPE )  ; 


INSACNM (&ACNAME,  &AC_NO,  &AC_NAME_TYPE, 

CALL  "INSACNM"  USING 

AC-NAME , 

AC-NO, 

AC-NAME-TYPE , 

STATUS . 

CALL  INSACNM ( ACNAME , ACNO , ACNAMETYPE , 
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ARGUMENTS : 


AC_NAME  CHAR  * 

AC_NO  INT  * 

AC_NAME_TYPE  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSAUC 

PURPOSE:  INSERT  A  RECORD  INTO  ATTRI BUTE_USE  CL 

LANGUAGE:  C 

SOURCE  FILE:  INSAUC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  ( TAG_NO , TAG_NAME , EC_NO , AC_NO ) 

SYNOPSIS 

C  —  INSAUC ( &TAG_NO ,  TAG_NAME ,  &EC_NO,  &ACNO, 

& STATUS) 

COBOL  —  CALL  "INSAUC”  USING 

TAG -NO, 

TAG-NAME , 

EC-NO, 

AC -NO, 

STATUS . 

FORTRAN  —  CALL  INSAUC ( TAGNO ,  TAGNAME,  ECNO,  ACNO, 
STATUS) 

INPUT: 

INT  *TAG_NO  ; 

CHAR  *TAG_NAME  ; 

INT  *EC_NO  ; 

INT  *AC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
ATTRIBUTE_USE_CL,  THE  DATA  ARE  TAKEN  FROM  THE  INPUT 
PARAMETERS . 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 
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REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


TAG_NO 

TAGNAME 

EC_NO 

ACNO 

STATUS 


INT  * 
CHAR  * 
INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  INSCATM 

PURPOSE:  INSERT  A  RECORD  INTO  CATEGORY  MEMBER 

LANGUAGE:  C 

SOURCE  FILE:  INSCATM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES 

(RC_NO , CAT_EC_NO , DOM_NO , SPECIFIC_VALUE) 


SYNOPSIS 

C  —  INSCATM ( &RC_NO ,  &CAT_EC_NO,  &DOM_NO, 

SPECIFIC_VALUE,  & STATUS) 
COBOL  —  CALL  "INSCATM"  USING 

RC-NO, 

CAT-EC-NO , 

DOM-NO , 

SPECIFIC_VALUE , 

STATUS . 

FORTRAN  —  CALL 

INSCATM (RCNO , CATECNO , DOMNO , SPECIFICVALUE , STATUS ) 

INPUT: 


INT  *RC_NO  ; 

INT  * CAT_EC_NO  ; 

INT  *  DOM_NO  ; 

INT  *SPECIFIC_VALUE  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
CATEGORY_MEMBER . 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 
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WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


RC_NO  INT  * 

CAT_EC_NO  INT  * 

DOMNO  INT  * 

SPECIFIC_VALUE  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSCATR 

PURPOSE:  INSERT  A  RECORD  INTO  CATEGORYJRELATION 

LANGUAGE:  C 

SOURCE  FILE:  INSCATR 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES 

(RC_NO , RC_NAME , GEN_EC_NO , CAT_TYPE_CODE , TAG_NO) 

SYNOPSIS 

C  —  INSCATR (&RC_NO,  RC_NAME ,  &GEN_EC_NO, 

CAT_TYPE_CODE , 

&TAG_NO ,  t STATUS) 

COBOL  —  CALL  "INSCATR"  USING 

RC-NO, 

RC-NAME 

GEN-EC-NO, 

CAT-TYPE-CODE, 

TAG-NO, 

STATUS . 

FORTRAN  —  CALL 

INSCATR (RCNO , RCNAME , GENECNO , CATTYPECODE , 

TAGNO, STATUS) 

INPUT: 

INT  *RC_NO  ; 

INT  *RC_NAME  ; 

INT  *GEN_EC_NO  ; 

INT  *CAT_TYPE_CODE  ; 

INT  *  DES  C_TAG_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 
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THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
CATEGORY_RELATION . 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


RC_NO  INT  * 

RC_NAME  CHAR  * 

GEN_EC_NO  INT  * 

CAT_TY  PE_CODE  CHAR  * 

DES C_TAG_NO  INT  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRLEN 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSCRC 

PURPOSE:  INSERT  A  RECORD  INTO  COMPLETE_RELATION 

LANGUAGE:  C 

SOURCE  FILE:  INSCRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  ( RC_NO , KC_NO )  ; 

SYNOPSIS 

C  —  INSCRC (&RC_NO,  &KC_NO,  &STATUS) 

COBOL  —  CALL  ‘•INSCRC"  USING 

RC-NO, 

KC-NO, 

STATUS . 

FORTRAN  —  CALL  INSCRC (RCNO,  KCNO,  STATUS) 

INPUT: 

INT  *RC_NO  ; 

I NT  *KC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION ! 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
COMPLETE_RELATION.  THE  DATA  ARE  TAKEN  FROM  THE  INPUT 
PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


RC_1I0 

KC_NO 

STATUS 


I  NT  * 
I  NT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSDSL 

PURPOSE:  INSERT  A  RECORD  INTO  THE  DF_SET_LINKAGE  ENTITY.  IF 

LANGUAGE:  C 

SOURCE  FILE:  INSDSL 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


RETURN  CODE  TO 


SUCCESSFUL,  THEN  SET  THE  STATUS  AND  THE 
TO  0,  OTHERWISE  TO  -1. 


SYNOPSIS 

C 

INSDSL (&DB  ID,  &SET  ID,&RT  ID,  &DF__ID,  &LINKAGE_TYPE,  &STATU 
COBOL--  —  CALL  ^INDSLET"  USING 

DB-ID, 

SET-ID, 

RT-ID, 

LINKAGE-ID, 

STATUS . 

FORTRAN  —  CALL  INSDSL(DBID,  SETID,  RTID, 

DFID , LINKAGETYPE , STATUS ) 

INPUT: 


INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

CHAR  *RT_ID  ; 

CHAR  *DF_ID  ; 

CHAR  *LINKAGE_TYPE  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
DF  SET  LINKAGE 

“  ENTITY.  IF  SUCCESSFULLY  INSERT  THE  RECORD  ,  THE  STATUS 
AND  RETURN 
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VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


DB_ID  INT  * 

SET_ID  CHAR  * 

RT_ID  CHAR  * 

DF_ID  CHAR  * 

LINKAGE_TYPE  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSEC 

PURPOSE:  INSERT  A  RECORD  INTO  ENTITY_CLASS 

LANGUAGE:  C 

SOURCE  FILE:  INSEC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  ( EC_NO , MODEL_NO )  ; 


SYNOPSIS 

C  —  INSEC (&EC_NO,  &MODEL_NO,  &STATUS ) 

COBOL  —  CALL  " INSEC"  USING 

EC-NO, 

MODEL-NO, 

STATUS . 

FORTRAN  —  CALL  INSEC (ECNO,  MODELNO ,  STATUS) 

INPUT: 

INT  *EC_NO  ; 

INT  *MODEL_NO  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
ENTITY_CLASS 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


EC_NO  INT  * 
MODEL_NO  INT  * 
STATUS  INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSECNM 

PURPOSE:  INSERT  A  RECORD  INTO  ENTIYT  NAME 

LANGUAGE:  C 

SOURCE  FILE:  INSECNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  ( EC_NAME , EC_NO , EC_NAME_TYPE ) 


SYNOPSIS 

C  —  INSECNM (EC_NAME,  &EC_NO,  ECNAMETYPE , 

& STATUS) 

COBOL  —  CALL  " INSECNM"  USING 

EC-NAME, 

EC-NO, 

EC-NAME -TYPE, 

STATUS . 

FORTRAN  —  CALL 

NSECNM ( EC-NAME , EC-NO , EC-NAME-TYPE , STATUS ) 

INPUT: 

CHAR  *EC_NAME  ; 

INT  *EC_NO  ; 

INT  *EC_NAME_TYPE  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
ENTITY_NAME 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


ECNAME  CHAR  * 

EC_NO  INT  * 

EC_NAME_T Y  PE  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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h'AEl  INSIAUC 

PURPOSE:  INSERT  A  RECORD  INTO  INHERITED  ATT  USE 

LANGUAGE:  C 

SOURCE  FILE:  INSIAUC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  ( TAG_NO , KC_NO , KCM_TAG_NO , RCNO ) 


SYNOPSIS 

C 

INSIAUC  (  &TAG  NO ,  &KC  NO ,  & KCM_TAG_NO ,  &RC_NO ,  £. STATUS )  ; 

COBOL  —  CALL  "INSIAUC"  USING 

TAG-NO, 

KC-NO, 

KCM-TAG-NO, 

RC-NO, 

STATUS . 

FORTRAN  —  CALL 

INS I AUC ( TAGNO , KCNO , KCMTAGNO , RCNO , STATUS ) 

INPUT: 

INT  *TAG_NO  ; 

INT  *KC_NO  ; 

INT  * KCM_T AG_N O  ; 

INT  *RC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
INHERITED_ATT_USE . 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 
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WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


TAG_NO  I NT  * 
KC_NO  INT  * 
KCM_TAG_NO  INT  * 
RC_NO  INT  * 
STATUS  INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSKCM 

PURPOSE:  INSERT  A  RECORD  INTO  KEY_CLASS_MEMBER 

LANGUAGE:  C 

SOURCE  FILE:  INSKCM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  (KC_NO,  TAG_NO) 

SYNOPSIS 

C  —  INSKCM (&KC_NO,  &TAG_NO,  &STATUS) 

COBOL  —  CALL  "INSKCM"  USING 

KC-NO, 

TAG-NO , 

STATUS . 

FORTRAN  —  CALL  INSKCM (KCNO,  TAGNO ,  STATUS) 

INPUT: 

INT  *KC_NO  ; 

INT  *TAG_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
KEY_CLASS_MEMBER . 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -i. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


KC_NO 

TAG_NO 

STATUS 


INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSKW 

PURPOSE:  INSERT  A  RECORD  INTO  KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  INSKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  (KW_NO, KEYWORD)  ; 

SYNOPSIS 

C  —  INSKW (&KW_NO,  & KEYWORD,  &STATUS) 

COBOL  —  CALL  "INSKW"  USING 

KW-NO, 

KEYWORD, 

STATUS . 

FORTRAN  —  CALL  INSKW (KWNO,  KEYWORD,  STATUS) 

INPUT: 

INT  *KW_NO  ; 

CHAR  * KEYWORD  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
KEYWORD 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


KW_NO 

KEYWORD 

STATUS 


INT  * 
CHAR  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSKWAC 

PURPOSE:  INSERT  A  RECORD  INTO  ACJCEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  INSKWAC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  (KW_NO,  AC_NO)  ; 

SYNOPSIS 

C  —  INSKWAC (&KW_NO,  &AC_NO,  &STATUS) 

COBOL  —  CALL  "INSKWAC"  USING 

KW-NO, 

AC-NO, 

STATUS . 

FORTRAN  —  CALL  INSKWAC (KWNO ,  ACNO,  STATUS) 

INPUT: 

INT  *KW_NO  ; 

INT  *AC_NO  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
AC_KEYWORD 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS: 


KWNO 

AC_NO 

STATUS 


I  NT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSKWEC 

PURPOSE:  INSERT  A  RECORD  INTO  EC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  INSKWEC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  (KW_NO,  EC_NO)  ; 

SYNOPSIS 

C  —  INSKWEC (&KW_NO,  &EC_NO,  fcSTATUS) 

COBOL  —  CALL  "INSKWEC"  USING 

KW-NO, 

AC-NO, 

STATUS . 

FORTRAN  —  CALL  INSKWEC (KWNO,  ACNO,  STATUS) 

INPUT: 

INT  *KW_NO  ; 

INT  *EC_NO  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
EC_KEYWORD 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


KWNO 

EC_NO 

STATUS 


INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSKWRC 

PURPOSE:  INSERT  A  RECORD  INTO  RC_KEYWORD 

LANGUAGE:  C 

SOURCE  FILE:  INSKWRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  (KW_NO,  RC_NO)  ; 

SYNOPSIS 

C  —  INSKWRC (&KW_NO,  &RC_NO,  &STATUS) 

COBOL  —  CALL  " INSKWRC”  USING 

KW-NO, 

RC-NO, 

STATUS . 

FORTRAN  —  CALL  INSKWRC (KWNO,  RCNO,  STATUS) 

INPUT: 

INT  *KW_NO  ; 

INT  *RC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
RC_KEYWORD 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


KWNO 

RC_NO 

STATUS 


INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSLNKR 

PURPOSE:  INSERT  A  RECORD  INTO  LINK_RELATION 

LANGUAGE:  C 

SOURCE  FILE:  INSLNKR 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES 

( RC_NO , RCNAME , IND_EC_NO , DEP_EC_NO , 


NO_INTD_ENT , MIN_NO_DEP_ENT , MAX_NO_DEP_ENT ) 


SYNOPSIS 

C 

&DEP_EC_NO, 


COBOL 


INSLNKR (&RC_NO,  RC_NAME ,  &IND_EC_NO, 

&NO_IND_ENT,  &MIN_NO_DEP_ENT , 
&MAX_NO_DEP_ENT ,  & STATUS ) 

CALL  "INSLNKR"  USING 
RC-NO, 

RC-NAME, 

IND-EC-NO, 

DEP-EC-NO, 

N0-IND-ENT, 
MIN-NO-DEP-ENT , 
MAX-NO-DEP-ENT, 

STATUS . 


FORTRAN  —  CALL 


INSLNKR (RCNO , RCNAME , INDECNO , DEPECNO , NOINDENT , 


INPUT: 

INT 

*RC  NO  ; 

MINDEPENT , MAXDEPENT , STATUS ) 

I  NT 

*RC  NAME  ; 

INT 

*IND  EC  NO  ; 

INT 

*DEP  EC  NO  ; 
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INT  *NO_IND_ENT  ; 

INT  *MIN_NO_DEP_ENT  ; 

INT  *MAX_NO_DE P_ENT  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
LINK_RELATION 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


RCNO 

RCNAME 

IND_EC_NO 

DEP_EC_NO 

NO_IND_ENT 

MIN_NO_DEP_ENT 

MAX_NO_DEP_ENT 

STATUS 


INT  * 
CHAR  * 
INT  * 
INT  * 
INT  * 
INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSMOD 

PURPOSE:  INSERT  A  RECORD  INTO  MODEL_CLASS 

LANGUAGE:  C 

SOURCE  FILE:  INSMOD 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES 

(MODEL_NO , SYSDATE , SYSDATE , MODEL_NAME , 

'UNCHECKED') 


SYNOPSIS 

C  —  INSMOD (&MODEL_NO,  MODEL_NAME ,  &STATUS )  ; 

COBOL  —  CALL  "INSMOD"  USING 

SYSDATE, 

MODEL-NAME, 

STATUS . 

FORTRAN  —  CALL  INSMOD (MODELNO,  MODELNAME,  STATUS) 
INPUT: 

INT  *MODEL_NO  ; 

CHAR  *MODEL_NAME  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
MODEL  CLASS 

The  data  are  taken  from  the  input  parameters. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


MODEL_NO 
MODEL  NAME 
STATUS 


INT  * 
CHAR  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

CDS DATE 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSNODE 

PURPOSE:  INSERT  A  NEW  NODE  ONTO  A  LINKED  LIST  STRUCTURE 

LANGUAGE:  C 

SOURCE  FILE:  INSNODE 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


INPUT: 

LLIST2  *(*CURRLIST) ; 

INT  NEWREFNO; 

CALLED  BY: 

DLMIGRC,  DMIGKKC ,  DMIGKRC ,  DPKCLST,  DPKCLS1 
DESCRIPTION: 

THIS  ROUTINE  WILL  ADD  A  NODE  ONTO  A  LINKED  LIST.  THE  TABLE 
HOLDS  DATA  RETREIVED  FROM  THE  DATABASE  IN  A  TREE  STRUCTURE 
FASHION. 


ARGUMENTS: 


CURRLIST  LLIST2  ** 

NEWREFNO  INT 


INCLUDE  FILES: 


STDIO 

LLIST 
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ROUTINES  CALLED: 
MALLOC 
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NAME:  INSOAC 

PURPOSE:  INSERT  A  RECORD  INTO  OWNED_ATTRI BUTE 

LANGUAGE:  C 

SOURCE  FILE:  INSOAC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  (AC_NO,EC_NO)  ; 

SYNOPSIS 

C  —  INSOAC (&AC_NO,  &EC_NO,  &STATUS) 

COBOL  —  CALL  "INSOAC"  USING 

AC-NO, 

EC-NO, 

STATUS . 

FORTRAN  —  CALL  INSOAC (ACNO,  ECNO,  STATUS) 

INPUT: 

INT  *AC_NO  ; 

INT  *EC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
OWNED_ATTRIBUTE 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


AC_NO 

EC_NO 

STATUS 


INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSORDR 

PURPOSE:  INSERT  NEW  NODE  INTO  A  LINKED  LIST  SO  IT  CAN  BE 

LANGUAGE:  C 

SOURCE  FILE:  INSORDR 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


TRAVERSED  IN  ORDER. 


INPUT: 

ECUSED  *ECNOLIST/  *TAILNODE,  *ECORDHEAD; 

INT  NEWEC; 

CALLED  BY: 

ECSTRUC ,  ECSTRC1 
DESCRIPTION : 

THIS  WILL  INSERT  A  NEW  UNIQUE  EC_NO  FOUND  INTO  A  LINKED 

LIST 

WITH  POINTERS  SET  UP  SO  IT  CAN  BE  TRAVERSED  IN 
DESCENDING  ORDER. 


ARGUMENTS: 


ECNOLIST 

TAILNODE 

ECORDHEAD 

NEWEC 


ECUSED  * 
ECUSED  * 
ECUSED  * 
INT 


INCLUDE  FILES: 
LLIST 
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STDIO 

ROUTINES  CALLED: 
MALLOC 
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NAME:  INSRC 

PURPOSE:  INSERT  A  RECORD  INTO  RELATION  CLASS 

LANGUAGE:  C 

SOURCE  FILE:  INSRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  ( RC_NO , REL_TYPE ) 


SYNOPSIS 

C  —  INSRC (&RC_NO,  REL_TYPE,  &STATUS) 

COBOL  —  CALL  "INSRC"  USING 

RC-NO, 

REL-TYPE, 

STATUS . 

FORTRAN  —  CALL  INSRC (RCNO,RELTYPE, STATUS) 

INPUT: 

INT  *RC_NO  ; 

I NT  *REL_TYPE  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
RELATION_CLASS. 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS: 


RC_NO  I NT  * 
RELJTYPE  I  NT  * 
STATUS  INT  * 


ROUTINES  CALLED: 


STRLEN 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSRCRS 

PURPOSE:  INSERT  A  RECORD  INTO  RC_BASED_REC_SET 

LANGUAGE:  C 

SOURCE  FILE:  INSRCRS 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VALUES  (DB_ID,SET_ID,RT_ID,RC_NO) 

SYNOPSIS 

C  —  INSRCRS (&DB_ID, SET_ID, RT_ID, &RC_NO, &STATUS) 

COBOL  —  CALL  "INSRCRS "  USING 

DB-ID, 

SET_ID, 

RT-ID 

RC-NO, 

STATUS . 

FORTRAN  —  CALL  INSRCRS (DBID, SETID, RTID, RCNO, STATUS) 
INPUT: 

INT  *RC_NO  ; 

INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

CHAR  *RT_ID  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
RC_BASED_REC_SET ,  THE  DATA  ARE  TAKEN  FROM  THE  INPUT 
PARAMETERS . 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 
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REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID 

SET_ID 

RT_ID 

RC_NO 

STATUS 


INT  * 
CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSRSET 

PURPOSE:  INSERT  A  RECORD  INTO  THE  RECORD_SET  ENTITY.  IF 

LANGUAGE:  C 

SOURCE  FILE:  INSRSET 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


RETURN  CODE  TO 


SUCCESSFUL,  THEN  SET  THE  STATUS  AND  THE 
TO  0,  OTHERWISE  TO  -1. 


SYNOPSIS 

C 

INSRSET (&DB_ID, &SET_ID, &OWNER_ID, &MEMBER_NO , &SET_NO, 

&STATUS) 

COBOL  —  CALL  "INSRSET"  USING 

DB-ID, 

SET-ID, 

OWNER-ID, 

MEMBER-NO, 

SET-NO, 

STATUS . 

FORTRAN  —  CALL  INSRSET (DBID,  SETID,  OWNERID, 
MEMBERNO,  SETNO, 

STATUS) 

INPUT: 

I NT  *DB_ID  ; 

CHAR  *SET_ID  ; 

CHAR  *OWNER_ID  ; 

INT  *MEMBER_NO  ; 

INT  *SET_NO; 

OUTPUT: 

INT  *STATUS  ; 
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DESCRPIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
RECORD_SET 

ENTITY.  IF  SUCCESSFULLY  INSERT  THE  RECORD  ,  THE  STATUS 
AND  RETURN 

VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  5/13/88 


ARGUMENTS: 


DB_ID 

SET_ID 

OWNER_ID 

MEMBER_NO 

SETNO 

STATUS 


INT  * 
CHAR  * 
CHAR  * 
INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSSTM 

PURPOSE:  INSERT  A  RECORD  INTO  THE  SET  TYPE  MEMBER  ENTITY.  IF 
LANGUAGE:  C  ~ 

SOURCE  FILE:  INSSTM 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SUCCESSFUL,  THEN  SET  THE  STATUS  AND  THE 

RETURN  CODE  TO 

TO  0,  OTHERWISE  TO  -1. 

SYNOPSIS 

C 

INSSTM (&DB_ID,  &SET_ID,  StMEMBER_ID,  &REQ_MEM_IND ,  &STATUS) 

COBOL  —  CALL  M INSSTM"  USING 

DB-ID, 

SET-ID, 

MEMBER-ID, 

REQ-MEM-IND, 

STATUS . 

FORTRAN  —  CALL  INSSTM (DBID,  SETID,  MEMBERID, 
REQMEMIND,  STATUS) 

INPUT: 

I  NT  *DB_ID  ,’ 

CHAR  *SET_ID  ; 

CHAR  *MEMBER_ID  ; 

CHAR  *REQ_MEM_IND  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  INSERT  A  RECORD  INTO 
SET_TYPE_MEMBER 

ENTITY.  IF  SUCCESSFULLY  INSERT  THE  RECORD  ,  THE  STATUS 
AND  RETURN 

VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 
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REWRITTEN  TO  PRO*C  5/13/88 


ARGUMENTS : 


DB  ID 

INT  * 

SET  ID 

CHAR  * 

MEMBER  ID 

CHAR  * 

REQ  MEM  IND 

CHAR  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  INSTFLD 

PURPOSE:  INSERT  A  ROW  INTO  CDM  TABLE  DATA  FIELD 

LANGUAGE:  C 

SOURCE  FILE:  INSTFLD 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


C  —  INSTFLD (DB_ID,RT_ID, DF_ID, DF_NO 

REC_SEQ_NO , REC_KEY_CODE , OCCURS , DBMS_ACCESS 
INDEX_IND , REDEF_DF , COMP_DF , OCC_DEP_DF , 
INDEX_DF , DATA_TYPE_NAME , FILLER_SIZE , 
STATUS) 

COBOL  ~  CALL  INSTFLD  USING 

DB_ID, 

RT_ID, 

DF_NO , 

STATUS . 

FORTRAN  ~  CALL  INSTFLD  (DB_ID, RT_ID j  DF_ID, DF_NO 
INPUT: 

ALL  FIELDS  OF  DATA_FIELD 
OUTPUT: 

STATUS 

DESCRIPTION 

A  NEW  ROW  IS  INSERTED  INTO  DATA_FIELD. 

IF  THE  COLUMN  CONTAINS  ZERO  A  NULL  IS  INSERTED. 

IF  SUCCESSFUL,  A  STATUS  OF  ZERO  IS  RETURNED. 

REWRITTEN  TO  PRO*C,  5/13/88 
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ARGUMENTS : 

DB  ID 

INT  * 

RT  ID 

CHAR  * 

DF  ID 

CHAR  * 

DF  NO 

INT  * 

REC  SEQ  NO 

INT  * 

REC  KEY  CODE 

CHAR  * 

OCCURS 

INT  * 

DBMS  ACCESS 

CHAR  * 

INDEX  IND 

CHAR  * 

REDEF  DF  NO 

INT  * 

COMP  DF  NO 

INT  * 

OCC  DEP  DF  NO 

INT  * 

INDEX  BY  DF  NO 

INT  * 

DATA  TYPE  NAME 

CHAR  * 

FILLER  SIZE 

INT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 

ERRRPT 
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NAME:  LOOPDEP 

PURPOSE:  CHECK  A  RELATION  TREE  FOR  LOOP  DEPENDENCIES 

LANGUAGE:  C 

SOURCE  FILE:  LOOPDEP 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


INPUT: 

LLIST1  **CURRENT_NODE; 

INT  NEWREFNO; 

CALLED  BY: 

BLOOPCK . PC ,  TLOOPCK. PC 
DESCRIPTION: 

THROUGH  USE  OF  A  LINKED  LIST  STRUCTURE  THIS  ROUTINE  WILL 
CHECK  TO  MAKE  SURE  A  DEPENDENCY  LOOP  DOES  NOT  EXIST  IN  A 
MODEL. 


ARGUMENTS : 


CURRENT_NODE  LLIST1  ** 

NEWREFNO  INT 


INCLUDE  FILES: 


STDIO 

LLIST 
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NAME:  LOWUPP 

PURPOSE:  CONVERT  A  STRING  TO  UPPER  CASE  CHARACTERS 

LANGUAGE:  C 

SOURCE  FILE:  LOWUPP 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


DESCRIPTION: 


SYNOPSIS 

C  —  LOWUPP  (STRING, &STRING_LEN) 

COBOL  —  CALL  "LOWUPP"  USING 

STRING, 

STRING-LEN, 

FORTRAN  —  CALL  LOWUPP  (STRING , STRLEN) ) 

INPUT: 

CHAR  STRING  [] 

INT*  STRING_LEN 
OUTPUT: 

DESCRIPTION 

LOWUPP  WILL  CONVERT  THE  CONTENTS  OF  A  CHARACTER  STRING 
TO  UPPER  CASE  CHARACTERS.  THE  LENGTH  OF  THE  STRING  IS 
PASSED  AS  A  PARAMETER. 


ARGUMENTS : 


STRING 
STRING  LEN 


CHAR  [] 
INT  * 
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INCLUDE  FILES: 


CTYPE 


ROUTINES  CALLED: 


I SLOWER 
TOUPPER 
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NAME:  LVLCHK 

PURPOSE:  RETRIEVE  THE  MAX  LEVEL  IN  THE  TREE  STRUCTURE  SEARCH 

LANGUAGE:  C 

SOURCE  FILE:  LVLCHK 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  CALLED  BY  ALLREL.C 


SYNOPSIS 

C 

LVLCHK ( RC_NO , MODEL_NO , MAX_LE VE L_FOUN D , STATUS ) 

COBOL  —  CALL  "LVLCHK"  USING 

RCNO, MODEL-NO, 
MAX-LEVEL-FOUND 
STATUS . 

FORTRAN  —  CALL  LVLCHK (RC-NO,MODEL_NO, MAX-LEVEL-FOUND 

STATUS) 

INPUT: 

INT  *MODEL_NO  ; 

INT  *RC_NO  ; 

INT  *MAX_LEVE L  ; 

INT  *STATUS  ; 

DESCRPIPTION : 


ARGUMENTS : 


RC_NO 

MODEL_NO 

MAX  LEVEL  FOUND 


INT  * 
INT  * 
INT  * 
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STATUS 


INT  * 


ROUTINES  CALLED: 


COOPEN 

ERRRPT 

COCLOSE 

COFETCH 

COEXEC 

COBINDN 

CODFINN 

COSQL3 
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NAME:  LVLCHK1 

PURPOSE:  RETRIEVE  THE  MAX  LEVEL  IN  THE  TREE  STRUCTURE  SEARCH 

LANGUAGE:  C 

SOURCE  FILE:  LVLCHK1 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  CALLED  BY  DEPREL.C 

SYNOPSIS 

C  —  LVLCHK1 ( RC_NO , EC_NO , MAX_LEVEL_FOUND , STATUS ) 

COBOL  —  CALL  "LVLCHK1"  USING 

RC_NO , EC-NO , 

MAX-LEVEL- FOUND 
STATUS . 

FORTRAN  —  CALL  LVLCHK1 (RC-NO, ECNO, MAX-LEVEL- FOUND 

STATUS) 

INPUT: 

INT  *MODEL_NO  ; 

INT  *RC_NO  ; 

INT  *MAX_LEVEL  ; 

INT  ‘STATUS  ; 

DESCRPIPTION : 


ARGUMENTS : 


RC_NO 

EC_NO 

MAX  LEVEL  FOUND 


INT  * 
INT  * 
INT  * 
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STATUS 


INT  * 


ROUTINES  CALLED: 


COOPEN 

ERRRPT 

COCLOSE 

COFETCH 

COEXEC 

COBINDN 

CODFINN 

COSQL3 
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NAME:  MAPRC 

PURPOSE:  MAP  A  RELATION  CLASS  TO  A  SET 

LANGUAGE:  C 

SOURCE  FILE:  MAPRC 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  MAPRC  (&RC_NO,  &DB_NO , SET_NAME , 

RECORD_NAME ) 

COBOL  —  CALL  "MAPRC”  USING 

RC-NO 

DB-NO, 

SET-NAME, 

RECORD-NAME. 

FORTRAN  —  CALL  MAPRC  (RCNO, DBNO, SETNAME, RENAME) 
INPUT: 

INT  *RC_NO 
INT  *DB_NO 
CHAR  SET_NAME [ ] 

CHAR  RE  CORD_N AME [ ] 

OUTPUT: 

DESCRIPTION 

MAPRC  IS  RESPONSIBLE  FOR  CALLING  ROUTINES  WHICH  ENFORCE 
RC  TO  SET 

MAPPING  RULES.  IF  NO  RULES  ARE  BROKEN,  A  ROUTINE  IS 
CALLED  WHICH 

PERFORMS  THE  MAPPING. 


ARGUMENTS : 
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RC_NO 
DB_NO 
SET_NAME 
RECORD  NAME 


INT  * 
INT  * 
CHAR  [] 
CHAR  [] 


INCLUDE  FILES: 


CSTDTYP 


ROUTINES  CALLED: 


STRNCPY 

FND1MEM 

VERRCMP 

SPRINTF 

UERROR 

INSRCRS 

FNDASA 
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NAME:  MODACKW 

PURPOSE:  UPDATE  THE  KW_NO  IN  THE  AC_KEYWORD  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  MODACKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  MODACKW (OLD_OBJ_NO,  NEW_OBJ_NO,  STATUS) 


COBOL  —  CALL  "MODACKW"  USING  OLD-OBJ-NO 

NEW-OBJ-NO 
STATUS . 

FORTRAN  —  CALL  MODACKW  (OLD-OBJ-NO, NEW-OBJ-NO, STATUS) 
INPUT: 

OLDOBJNO 

NEWOBJNO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE 
THE  KEYWORD  NUMBER  IN  THE  AC_KEYWORD  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C,  5/13/88 


ARGUMENTS : 


OLD_OBJ_NO  INT  * 

NEW  OBJ  NO  INT  * 
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STATUS 


I  NT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  MODECKW 

PURPOSE:  UPDATE  THE  KW_NO  IN  THE  EC_KEYWORD  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  MODECKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  MODECKW (OLD_OBJ_NO,  NEW_OBJ_NO,  STATUS) 


COBOL  —  CALL  "MODECKW"  USING  OLD-OBJ-NO 

NEW -OBJ -NO 
STATUS . 

FORTRAN  —  CALL  MODECKW  (OLD-OBJ-NO, NEW-OBJ-NO, STATUS) 
INPUT: 

OLD_OBJ_NO 

NEWOBJNO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE 
THE  KEYWORD  NUMBER  IN  THE  ECJKEYWORD  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C,  5/13/88 


ARGUMENTS : 


OLD_OBJ_NO  INT  * 

NEW  OBJ  NO  INT  * 
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STATUS 


INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  MODRCKW 

PURPOSE:  UPDATE  THE  KW_NO  IN  THE  RC_KEYWORD  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  MODRCKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  MODRCKW (OLD_OBJ_NO#  NEW_OBJ_NO,  STATUS) 


COBOL  —  CALL  "MODRCKW"  USING  OLD-OBJ-NO 

NEW-OBJ-NO 
STATUS . 

FORTRAN  —  CALL  MODRCKW  (OLD-OBJ-NO, NEW-OBJ-NO, STATUS) 
INPUT: 

OLDOBJNO 

NEWOBJNO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE 
THE  KEYWORD  NUMBER  IN  THE  RC_KEYWORD  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C,  5/13/88 


ARGUMENTS : 


OLD_OBJ_NO  INT  * 

NEW  OBJ  NO  INT  * 
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STATUS 


I  NT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  MODYFLD 

PURPOSE:  UPDATE  FIELDS  IN  DATA_FIELD  GIVEN  THE  FIELD  NAME 

LANGUAGE:  C 

SOURCE  FILE:  MODYFLD 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 

MODYFLD ( DB_ID, RT_ID, DF_ID, SEQ_NO , KEY_CODE , OCCURS , KNOWN , 

INDEX_IND , REDEF_DF_NO , COMPDF , OCC_DEP_DF , 
INDEX_DF , DATAJTYPE , FILLER_SIZE , STATUS ) 

COBOL  —  CALL  "MODYFLD"  USING  DB-ID 

RT-ID 

DF-ID 

SEQ-NO 

KEY-CODE 

OCCURS 

KNOWN 

INDEX-IND 

REDEF-DF 

COMP-DF 

OCC-DEP 

INDEX-DF 

DATA-TYPE-NAME 

FILLER-SIZE 

STATUS . 

FORTRAN  —  CALL 

MODYFLD ( DB-ID , RT-ID , DF-ID , SEQ-NO , KEY-CODE , OCCURS , KNOWN 

INDEX-IND , REDEF-DF , COMP-DF , OCC-DEP , INDEXED- DF , 

DATA-TYPE, FILLER-SIZE, STATUS) . 
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INPUT: 

DB_ID 

RT_ID 

DF_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE 
ALL  THE  FIELDS  IN  THE  DATA_FIELD  GIVEN  THE  DB_ID, 
RT_ID,  AND  DF_ID. 

IF  THESE  FIELDS  ARE  ZERO  ,  A  NULL  IS  INSERTED 
IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C,  5/13/88 


ARGUMENTS: 

DB  ID 

INT  * 

RT  ID 

CHAR  * 

DF  ID 

CHAR  * 

DF  NO 

INT  * 

SEQ  NO 

INT  * 

KEY  CODE 

CHAR  * 

OCCURS 

INT  * 

KNOWN 

CHAR  * 

INDEX  IND 

CHAR  * 

REDEF  DF  NO 

INT  * 

COMP  DF 

INT  * 

OCC  DEP  DF 

INT  * 

INDEXED  DF 

INT  * 

DT  NAME 

CHAR  * 

FILLER  SIZE 

INT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 
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SQLSCH 

SQLSCC 

SQLTFL 

SQLOPH 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  MRGNODE 

PURPOSE:  SELECT  ALL  THE  TOP  NODE  (LEVEL  1)  INDEPENDENT 
ENTITY ' S 
LANGUAGE:  C 
SOURCE  FILE:  MRGNODE 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


IN  MODEL-2  AND  CONTROL  THE  LOGIC  FOR 

GENERATING  NDDL 

STATEMENTS  TO  EITHER  CREATE  THE  MODEL-2 
COMBINE  THE  ENTITY  WITH  A  MODEL-1  ENTITY. 


MRGNODE ( &M0D_N02 ,  MOD_NAME2 ,  &KEYWORDFLAG , 
&ALIASFLAG,  fcDESCFLAG,  &RC)  ; 
CALL  "MRGNODE”  USING 

M0D_N02 , 

MOD-NAME 2 , 

KEYWORDFLAG, 

ALIAS_FLAG, 

DESC_FLAG, 

RC. 

FORTRAN  —  CALL  MRGNODE (MODNO,  MODNAME,  KEYWORD, 

ALI AS_FLAG , 

DESC_FLAG,  RC) 

INPUT: 

INT  *M0D_N02  ; 

CHAR  *MOD_NAME2  ; 

INT  *KEYWORD_FLAG  ; 

INT  *ALIAS_FLAG  ; 

INT  *DESC  FLAG  ; 


ENTITY  OR 

SYNOPSIS 

C 

COBOL 
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INT  *RC  ; 

DESCRPIPTION: 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


M0D_N01  INT  * 

M0D_N02  INT  * 

MOD_NAME2  CHAR  * 

KEYWORD_FLAG  CHAR  * 

ALIAS_FLAG  CHAR  * 

DESC_FLAG  CHAR  * 

STATUS  INT  * 


INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

SELECNM 

VERENT 

GENENT1 

GENALTE 

SPRINTF 

UERROR 

SQLTOC 

SQLSQS 

SQLOSQ 
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SQLAB2 

SQLEXE 
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NAME:  NDDL/MAIN 

PURPOSE:  MAIN  PROGRAM  FOR  THE  NDDL  COMMAND  PROCESSOR 

LANGUAGE:  C 

SOURCE  FILE:  NDDL 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

FROM  THE  OPERATING  SYSTEM: 

(GET  IN  UNIX) 

%NDDL  [-1]  [<FILE] 

WHERE: 

-I  IS  OPTIONAL  AND  STANDS  FOR  INTERACTIVE,  IN  WHICH  CASE 
THE  PRPGRAM  WILL  USE  THE  FORMS  PROCESSOR 

OTHERWISE  THE  PROGRAM  WILL  ACCEPT  INPUT  FROM  THE 
STANDARD  INPUT,  WHICH  CAN  BE  RE-DIRECTED  WITH  <FILE 
GIVING  A  BATCH  OPERATING  MODE. 

************  BATCH  VERSION  *************** 

INPUT: 

THE  USER  ENTERED,  OPTIONAL  -I  PARAMETER 
OUTPUT: 

DESCRIPTION 

THIS  IS  THE  MAIN  FOR  THE  NDDL  COMMAND  PROCESSOR. 


ARGUMENTS : 


ARGC  INT 

ARGV  CHAR  *  [) 


3-1356 


PS  620341100 
30  September  1990 


INCLUDE  FILES: 


SIGNAL 

STDIO 

CMDID 

LISTS 

NDDLEX 


ROUTINES  CALLED: 


ERRTRAP 

STRNCPY 

PRINTF 

SCANF 

STRCPY 

STRCAT 

SIGNAL 

INITSES 

PROCMD 

TERMSES 

TRMDDL 

EXIT 
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NAME:  ERRTRAP 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  UINDDL 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 

XXX  INT 


INCLUDE  FILES: 


SIGNAL 

STDIO 

CMDID 

LISTS 

NDDLEX 


ROUTINES  CALLED: 


TRMDDL 

EXIT 
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NAME:  YYWRAP 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  NDDLYTB 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


INCLUDE  FILES: 


NDDLYAC . INP" 

STDIO 

CMDID 

ATTRID 

LISTID 

LISTSEX 

NDDLEX 

FORMS 

NDMLSTB 

NDDLEXY 
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NAME:  YYERROR 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  NDDLYTB 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


ARGUMENTS : 

S  CHAR  * 


INCLUDE  FILES: 


NDDLYAC . INP" 

STDIO 

CMDID 

ATTRID 

LISTID 

LI STS EX 

NDDLEX 

FORMS 

NDMLSTB 

NDDLEXY 


ROUTINES  CALLED: 


SPRINTF 
UERROR 
FREE  SYMTAB 
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NAME:  YYNULL 
PURPOSE : 

LANGUAGE:  C 
SOURCE  FILE:  NDDLYTB 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


INCLUDE  FILES: 


NDDLYAC . INP" 

STDIO 

CMDID 

ATTRID 

LISTID 

LISTSEX 

NDDLEX 

FORMS 

NDMLSTB 

NDDLEXY 
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NAME:  YYPARSE 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  NDDLYTB 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


INCLUDE  FILES: 


NDDLYAC . INP" 

STDIO 

CMDID 

ATTRID 

LISTID 

LISTSEX 

NDDLEX 

FORMS 

NDMLSTB 

NDDLEXY 


ROUTINES  CALLED: 


PRINTF 

ADD_TO_LST 

ADD_CORR 

PUT_SYMB 

CHAIN_SYMB 

ADDTOCNT 

YYERROR 

MEMCPY 

NEW  SCOPE 
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YYNULL 

EXIT_SCOPE 

YYLEX 
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NAME:  NEXTKC 

PURPOSE:  THIS  ROUTINE  RETURNS  A  KC_NAME  FOR  A  GIVEN  EC_NO  FROM 

LANGUAGE :  C 

SOURCE  FILE:  NEXTKC 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THE  UNBOUNDED  KEYLIST  DATA  STRUCTURE. 

1.  IF  THE  FIRST_FLAG  IS  0,  THE  ROUTINE 

RETURNS  THE  FIRST 

KC_NAME . 

IF  THE  CHAIN  IS  EMPTY,  THEN  RETURNS 

ERROR  CODE. 

2.  IF  THE  FIRST_FLAG  IS  1,  THE  ROUTINE 

RETURNS  THE  NEXT 

IF  THERE  IS  NO  CURRENT  KC_NO, 

KC_NAME,  THEN 

THE  FIRST  KC_NAME  WILL  BE  RETURNED  AS 

NEXT  KC_NAME 

IF  IT  EXISTS. 

IF  THE  CURRENT  KC_NO  IS  THE  LAST  ONE, 

THEN  ERROR 

CODE  IS  RETURNED. 

3.  IF  THE  FIRST_FLAG  IS  -1,  THE  ROUTINE 

RETURNS  KC_NAME 

FOR  THE  GIVEN  EC_NO  AND  KC_NO. 

IF  THE  DESIRED  KC_NAME  IS  NOT  FOUND, 

THEN  RETURNS 

THE  ERROR  CODE. 

IF  THE  OPERATION  IS  SUCCESSFUL,  SET  THE 

STATUS  AND 

RETURN  CODE  TO  0. 

SYNOPSIS 

C  —  NEXTKC (&EC_NO,  &FLAG,  &KC_NO,  &KC_NAME, 

& STATUS) 

COBOL  —  CALL  "NEXTKC"  USING 

EC-NO, 

FLAG, 

KC-NO, 
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KC-NAME , 

STATUS . 

FORTRAN  ~  CALL  MEXTKC ( ECNO ,  FLAG,  KCNO,  KCNAE , 
STATUS) 

INPUT: 


INT  *EC  NO  ; 

INT  *FLAG  ; 

INT  *KC  NO  ; 

CHAR  *KC  NAME  ; 

INT  *STATUS  ; 

OUTPUT: 

DESCRPIPTION : 

ARGUMENTS : 

EC  NO 

INT  * 

FLAG 

INT  * 

KC  NO 

INT  * 

KC  NAME 

CHAR  * 

STATUS 

INCLUDE  FILES: 

KEYLIST 

ROUTINES  CALLED: 

STRNCPY 

INT  * 
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NAME:  NEXTKCM 

PURPOSE:  THIS  ROUTINE  RETURNS  A  KG_NO , KG_NAME  FOR  A  GIVEN 
EC_NO 

LANGUAGE:  C 
SOURCE  FILE:  NEXTKCM 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


STRUCTURE . 


AND  KC  NO  FROM  THE  UNBOUNDED  KEYLIST  DATA 


RETURNS  THE  FIRST 

ERROR  CODE. 
RETURNS  THE  NEXT 
KG_NAME ,  THEN 
NEXT  KG_NAME 

THEN  ERROR 

RETURNS  KG_NAME 

THEN  RETURNS 

STATUS  AND 

SYNOPSIS 

C 

&  KG_NAME , 

COBOL 


1.  IF  THE  FIRST_FLAG  IS  0,  THE  ROUTINE 
KG_NAME . 

IF  THE  CHAIN  IS  EMPTY,  THEN  RETURNS 

2.  IF  THE  FIRST_FLAG  IS  1,  THE  ROUTINE 

IF  THERE  IS  NO  CURRENT  KC_NO, 

THE  FIRST  KG_NAME  WILL  BE  RETURNED  AS 
IF  IT  EXISTS. 

IF  THE  CURRENT  KG_NO  IS  THE  LAST  ONE, 
CODE  IS  RETURNED. 

3.  IF  THE  FIRST_FLAG  IS  -1,  THE  ROUTINE 

FOR  THE  GIVEN  EC_NO  AND  KG_NO . 

IF  THE  DESIRED  KG_NAME  IS  NOT  FOUND, 

THE  ERROR  CODE. 

IF  THE  OPERATION  IS  SUCCESSFUL,  SET  THE 
RETURN  CODE  TO  0. 

NEXTKCM (&EC_NO,  &KC_NO,  &FLAG,  &KG_NO, 

& STATUS) 

CALL  "NEXTKCM"  USING 

EC-NO, 
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KC-NO, 

F  LAG, 

KG-NO, 

KG-NAME, 

STATUS . 

FORTRAN  —  CALL  NEXTKCM ( ECNO ,  KCNO,  FLAG,  KGNO, 
KGNAME,  STATUS) 

INPUT: 

INT  *EC_NO  ; 

I NT  *KC_NO  ; 

INT  *FLAG  ; 

INT  *KG_NO  ; 

CHAR  *KG_NAME  ; 

INT  * STATUS  ; 


OUTPUT: 

DESCRPIPTION : 

ARGUMENTS : 

EC  NO 

INT  * 

FLAG 

INT  * 

KC  NO 

INT  * 

KG  NO 

INT  * 

KG  NAME 

CHAR  * 

STATUS 

INT  * 

INCLUDE  FILES: 

KEYLIST 

ROUTINES  CALLED: 

STRNCPY 
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NAME:  NFLCLOS 

PURPOSE:  THIS  ROUTINE  CLOSES  AN  OUTPUT  FILE.  THE  FILE  WILL 

LANGUAGE:  C 

SOURCE  FILE:  NFLCLOS 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CONTAINS  THE  USER'S  NDDL. 

SYNOPSIS 

C  —  NFLCLOS (&FILE  NAME,  &READ_WRITE ,  &STATUS)  ; 

COBOL  —  CALL  "NFLCLOS11  USING 

FILE -NAME, 

FORTRAN  —  CALL  NFLCLOS (FILENAME,  READWRITE,  STATUS) 
INPUT: 

OUTPUT: 

DESCRPIPTION : 


INCLUDE  FILES: 


NDDLEX 

STDIO 


ROUTINES  CALLED: 


FCLOSE 
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NAME •  NFLOPEN 

PURPOSE:  THIS  ROUTINE  OPENS  AN  OUTPUT  FILE. 

LANGUAGE:  C 

SOURCE  FILE:  NFLOPEN 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


MODIFIED  04/01/86  TO  NULL  TERMINATE  THE  FILENAME  ARGUMENT 
SYNOPSIS 

C  —  NFLOPEN (&FILE  NAME)  ; 

COBOL  —  CALL  "NFLOPEN*  USING 

FILE-NAME. 

FORTRAN  —  CALL  NFLOPEN (FILENAME) 

INPUT: 

CHAR  *FILE_NAME  ; 

OUTPUT: 

DESCRPIPTION : 

THE  FILE  WILL  CONTAIN  THE  USER'S  GENERATED  NDDL. 

FI LE_OPN_APP_FLAG  MAY  CONTAIN  3  VALUES  : 

0  :  OUTPUT  TO  SCREEN  :SCREENIO 

1  :  OPEN  A  NEW  FILE  :FILEOPN 

2  :  APPEND  TO  EXISTING  FILE  :FILEAPP 


ARGUMENTS : 

STATUS  INT  * 
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INCLUDE  FILES: 


STDIO 

NDDLEX 


ROUTINES  CALLED: 


FOPEN 

ESCPY 

SPRINTF 

UERROR 
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NAME  s  NRGET 

PURPOSE:  GET  AN  UNIQUE  NUMBER  FROM  TH  REUSABLE  POOL 

LANGUAGE:  C 

SOURCE  FILE:  NRGET 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  NRGET  ( POOL_NO ,  NEXT_NO ,  STATUS) 

COBOL  —  CALL  "NRGET"  USING 

POOL-NO, 

NEXT_NO , 

STATUS . 

FORTRAN  —  CALL  NRGET  ( POOLNO , NEXT_NO , STATUS ) 

INPUT: 

INT  *POOL_NO  ; 

OUTPUT: 

INT  *NEXT_NO  ; 

INT  *STATUS  ; 

DESCRPIPTION 

THIS  ROUTINE  RETURNS  A  UNIQUE  NUMBER  FOR  A  POOL  NUMBER 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


POOL_NO 

NEXT_NO 

STATUS 


INT  * 
INT  * 
INT  * 
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INCLUDE  FILES: 


EOD 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

GETNXNO 

DELREUS 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  NRSTORE 

PURPOSE:  STORE  A  AVAILABLE  NO  OF  A  POOL  NO  BACK  TO  NO  LINKED 

LANGUAGE:  C 

SOURCE  FILE:  NRSTORE 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


LIST  DATA  STRUCTURE. 


SYNOPSIS 

C 

NRSTORE (POOL  NO,  AVAIL  NO) 

COBOL 

CALL  "NRSTORE"  USING 

FORTRAN 

POOL-NO, 

AVAIL-NO. 

CALL  NRSTORE ( POO LNO,  AVAILNO) 

INPUT: 

INT  *POOL  NO 

• 

9 

INT  * AVAIL  NO 

• 

9 

OUTPUT: 

NONE 

DESCRPIPTION 

THIS  ROUTINE  PUT  THE  AVAILABLE  NO  OF  THE  POOL  NO  BACK  TO 
THE  NO 

LINKED  LIST.  THE  ROUTINE  CALLS  'ALLOC'  FUNCTION  TO 
AT.tnrATF  <!PirF 

FOR  STORING  THE  AVAIL  NO  AND  POOL  NO. 


ARGUMENTS : 


AC_NO  I NT  * 

NEXT  NO  INT  * 
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STATUS  INT  * 

ROUTINES  CALLED: 

MALLOC 
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NAME:  PROCMD 

PURPOSE:  THIS  ROUTINE  IS  CALLED  TO  HANDLE  ALL 

LANGUAGE:  C 

SOURCE  FILE:  PROCMD 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


PROCESSING  FOR  A  SINGLE  NDDL  COMMAND. 

SYNOPSIS 

C  —  PROCMD ( ) 

COBOL  —  CALL  "PROCMD". 

FORTRAN  —  CALL  PROCMD 

INPUT: 

OUTPUT : 

DESCRIPTION 

CALL  THE  YACC  GENERATED  PARSER  TO  ACCEPT  AND  PARSE 
A  SINGLE  COMMAND.  IF  A  SYNTAX  ERROR,  LET  USER 
KNOW  COMMAND  WAS  NOT  PROCESSED  AND  RETURN 
THAT  THERE  IS  MORE  INPUT  IN  THE  GLOBAL  END_STATUS . 
CHECK  TO  SEE  IF  ALL  OTHER  COMMANDS  SHOULD  BE 
SKIPPED.  CHECK  TO  SEE  IF  AN  END  OF  FILE  CONDITION 
WAS  RAISED.  PROCESS  THE  COMMAND  BY  A  CALL  TO  BRANCHR. 
RESET  THE  COMMAND  ERROR  COUNTERS. 

MODIFIED:  OCT  25,88  TO  HANDLE  EOF  WHEN  COMMIT  MODE  IS  MANUAL. 


INCLUDE  FILES: 


CMDID 
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NDDLEX 

OK 

FPPARM 

FPCODE 

FNMNIO 


ROUTINES  CALLED: 


RESETFN 

COMMITMN 

COMMITFN 

RESETMN 

INITCMD 

PDATA 

STRNCMP 

SPRINTF 

PMSGLS 

UERROR 

ROLBACK 

BRANCHR 

RMVPAG 

ERRPRO 

GETNCHR 

PUTCHAR 

UWARN 

COMMIT 

STRCPY 

YYPARSE 

OISCR 

STRNCPY 

GDATA 

RPLFRM 
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NAME:  RCLASA 

PURPOSE:  FOR  MODEL  NAME1  SELECT  ALL  THE  RELATION  CLASSES 

LANGUAGE:  C 

SOURCE  FILE:  RCLASA 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


BY  NAME  AND  LOOK  FOR  A  MATCHING  RELATION 
CLASS  NAME  IN  MODEL_NAME2 

SYNOPSIS 

C  —  RCLASA (&M0DEL_NAME1,  &MODEL_NAME2 , 

& STATUS)  ; 

COBOL  —  CALL  ''RCLASA*'  USING 

MODEL-NAME 1, 

MODEL-NAME2 , 

STATUS . 

FORTRAN  —  CALL  RCLASA (MODELNAME1 ,  MODELNAME2 ,  STATUS) 
INPUT: 

CHAR  *MODEL_NAME 1  ; 

CHAR  *MODEL_NAME2  ; 

INT  *STATUS  ? 

DESCRIPTION: 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


MODEL_NAME 1 
MODEL_NAME2 
STATUS 


CHAR  * 
CHAR  * 
INT  * 
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INCLUDE  FILES: 


EOD 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLTFL 

SQLOPN 

SQLAD2 

SQLFCH 

CP  ARM 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  RCLASS 

PURPOSE:  FOR  MODEL  NAME1  SELECT  THE  PRIMARY  RELATION  CLASS 

LANGUAGE:  C 

SOURCE  FILE:  RCLASS 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


BY  NAME  AND  LOOK  FOR  A  MATCHING  PRIMARY 

RELATION  CLASS 

NAME  IN  MODEL_NAME2 

SYNOPSIS 

C  —  RCLASS (&M0DEL_NAME1,  &MODEL_NAME2 , 

&STATUS)  ; 

COBOL  —  CALL  "RCLASS"  USING 

MODEL-NAME 1, 

MODEL-NAME2 , 

STATUS . 

FORTRAN  —  CALL  RCLASS (MODELNAME1 *  MODELNAME2 ,  STATUS) 
INPUT: 

CHAR  *MODEL_NAME 1  ; 

CHAR  *MODEL_NAME2  ; 

INT  *STATUS  ; 

DESCRIPTION: 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


MODEL_NAME 1 
MODEL_NAME2 
STATUS 


CHAR  * 
CHAR  * 
INT  * 
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INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLTFL 

SQLOPN 

SQLAD2 

SQLFCH 

CP  ARM 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  RDDESC 

PURPOSE:  STORE  DESCRIPTION  ON  THE  CDM 

LANGUAGE:  C 

SOURCE  FILE:  RDDESC 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  RDDESC  (OBJJTYPE,  &OBJ_NO,  DESC_TYPE, 

FILENAME, 

&TXT_TYPE,  &LINE_COUNT) 

COBOL  —  CALL  "RDDESC”  USING 

OBJ-TYPE 

OBJ -NO 

DESC-TYPE 

FILE-NAME 

TXT-TYPE 

LINE-COUNT. 

FORTRAN  —  CALL  RDDESC  (OBJTYPE , OBJNO , DESCTYP, FILENAM, 
+TXTTYP , LINECNT) 

INPUT: 

CHAR  OBJJTYPE [] 

INT  *OBJ  NO 
CHAR  DESC JTYPE [ ] 

CHAR  FILE_NAME [ ] 

INT  *TXT_TYPE 
OUTPUT: 

INT  *  LI NE_COUNT 
DESCRIPTION 

RDDESC  STORES  DESCRIPTIONS  OF  TXTJTYPE  2  (FILE  INPUT)  AND 
TXT  TYPE 
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3  (COMMAND  TEXT  INPUT) 
PREVIOUS 

DESCRIPTION,  IF  ANY. 


INTO  THE  CDM  AFTER  DELETING  THE 


ARGUMENTS : 


OBJJTYPE 

OBJNO 

DESC_TYPE 

FILE_NAME 

TXT_TYPE 

LINE  COUNT 


CHAR  [] 
INT  * 
CHAR  [] 
CHAR  [] 
INT  * 
INT  * 


INCLUDE  FILES: 


CSTDTYP 


ROUTINES  CALLED: 


COOPEN 

ERRRPT 

FILEINS 

STRINS 

SPRINTF 

UERROR 

COCLOSE 

COBINDN 

COSQL3 
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NAME:  ROLBACK 

PURPOSE:  ROLBACK  THE  TRANSACTIONS.  NDML  AND  ORACLE  ROLLBACK 

LANGUAGE:  C 

SOURCE  FILE:  ROLBACK 

SOURCE  FILE  TYPE:  C 

HOST:  . 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  ROLBACK (& STATUS) 

COBOL  —  CALL  "ROLBACK"  USING 

STATUS . 

FORTRAN  —  CALL  ROLBACK  (STATUS) 

INPUT: 

NONE 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION z 

MODIFIED:  1  NOV  ,  1986  REMOVE  CALL  TO  REUSABLE_NUMBER 
MODIFIED:  23  SEP, 1988  CHANGE  COROL  TO  OROL 


ARGUMENTS : 


STATUS  INT  * 


ROUTINES  CALLED: 
NROLBAK 
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SPRINTF 

UERROR 

ERRPRO 
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NAME:  SELIAUC 

PURPOSE:  SELECTS  ALL  THE  INHERITED  TAG  NAMES 

LANGUAGE:  C 

SOURCE  FILE:  SELIAUC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


AND  OWNER  TAG  NAMES  ASSOCIATED  WITH 
THE  DEPENDENT  ENTITY  IN  A  GIVEN  RELATION, 
THEN  CALLS  A  ROUTINE  TO  FORMAT  A  LINE  FOR 
FOR  THE  SET  CLAUSE. 

NOTE:  THE  KC  NO  CARRIED  IN 

INHERITED_ATT_USE 

IS  ASSOCIATED  WITH  THE  DEPENDENT  ENTITY, 
NOT  THE  INDEPENDENT. 


SYNOPSIS 

C 

COBOL 


FORTRAN 
INPUT: 

INT  *MODEL_NO  ; 

INT  *EC_NO  ; 

INT  *KC_NO  ; 

INT  *RC_NO  ; 

DESCRPIPTION  * 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


SELIAUC ( MODEL  NO , EC_NO , KC_NO , RC_NO )  ; 

CALL  "SELIAUC17  USING 

MODEL-NO 

EC-NO 

KC_NO 

RC-NO. 

CALL  SELIAUC (MODELNO , ECNO , KCNO , RCNO) 
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ARGUMENTS : 


MODEL_NO 
ECNO 
KC_NO 
RC  NO 


I  NT  * 
INT  * 
INT  * 
INT  * 


INCLUDE  FILES: 


EOD 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

FMTIAUC 

STRNCPY 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME •  SELSET 

PURPOSE:  SELECT  A  RELATIONS  IN  THE  CDM  FOR  A  GIVEN 

LANGUAGE:  C 

SOURCE  FILE:  SELSET 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DB-NAME  AND  SET-ID  AND  FOR  EACH 

ONE  SELECTED  CALL  GENMREL  TO  START  GENERATING 

CREATE  MAP  FOR  SET  COMMANDS. 

SYNOPSIS 

C  —  SELSET (& DB-NAME,  &SET-ID) 

COBOL  —  CALL  "SELSET"  USING  DB-NAME 

SET-ID. 

FORTRAN  —  CALL  SELSET  ( DBNAME ,  SETID) 

INPUT: 

CHAR  *DB_NAME; 

CHAR  *SET_ID; 

OUTPUT: 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_NAME 
SET  ID 


CHAR  * 
CHAR  * 


3-1387 


PS  620341100 
30  September  1990 


INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


STRNCPY 

ADDPARM 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

GENMREL 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 


3-1388 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  SELSETC 

PURPOSE:  SELECT  A  RELATIONS  IN  THE  CDM  FOR  A  GIVEN 

LANGUAGE:  C 

SOURCE  FILE:  SELSETC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DB-NAME  AND  SET-ID  AND  FOR  EACH 

ONE  SELECTED  CALL  GENMREL  TO  START  GENERATING 

CREATE  MAP  FOR  SET  COMMANDS. 

SYNOPSIS 

C  —  SELSETC (&DB-NAME,  &SET-ID) 

COBOL  —  CALL  "SELSETC”  USING  DB-NAME 

SET-ID. 

FORTRAN  —  CALL  SELSETC  (DBNAME,  SETID) 

INPUT: 

CHAR  *DB_NAME ; 

CHAR  *SET_ID; 

OUTPUT: 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_NAME 
SET  ID 


CHAR  * 
CHAR  * 
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INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


STRNCPY 

ADDPARM 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

GENMREL 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  SETCOMM 

PURPOSE:  SET  COMMIT  OPTION  TO  MANUAL  OR  AUTOMATIC 

LANGUAGE:  C 

SOURCE  FILE:  SETCOMM 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  SETCOMM () 

COBOL  —  CALL  "SETCOMM" 

FORTRAN  —  CALL  SETCOMM  () 

INPUT: 

NONE 

OUTPUT: 

DESCRPIPTION : 

RETRIEVE  FROM  THE  PAP  ''ER  LIST  WHETHER  THE  COMMIT/ROLLBACK 
IS  AUTOMATIC  OR  MANU.  .L.  THE  DEFAULT  OPTION  IS  AUTOMATIC. 
UPDATE  GLOBAL  VARIABLES  TO  REFLECT  THE  CURRENT  OPTION. 


INCLUDE  FILES: 

LISTID 

NDDLEX 

ROUTINES  CALLED: 
CPFONE 
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STRNCMP 
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NAME:  SETGLOB 

PURPOSE:  THIS  ROUTINE  ESTABLISHES  GLOBAL  OUTPUT 

LANGUAGE:  C 

SOURCE  FILE:  SETGLOB 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VARIABLES  FOR  THE  SET  OUTPUT  COMMAND. 

SYNOPSIS 

C  —  SETGLOB (FILE_FLAG/ FILENAME)  ; 

COBOL  —  CALL  " SETGLOB"  USING 

FILE_FLAG , FILENAME . 

FORTRAN  —  CALL  SETGLOB (FILEJFLAG, FILENAME) 

INPUT: 

INT  *FILE_FLAG  ; 

CHAR  * FILENAME  ; 

OUTPUT: 

DESCRPIPTION : 

F I LE_OPN_APP_F LAG  MAY  HAVE  3  VALUES 
0  :  OUTPUT  GENERATED  COMMANDS  TO  THE  SCREEN 

1  :  OUTPUT  GENERATED  COMMANDS  TO  A  NEW  USER  DEFINED  FILE 

2  :  APPEND  GENERATED  COMMANDS  TO  A  USER  DEFINED  FILE 


ARGUMENTS : 


INT  * 
CHAR  * 


FILE_FLAG 

FILENAME 
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INCLUDE  FILES: 


STDIO 

NDDLEX 


ROUTINES  CALLED: 


NFLOPEN 

NFLCLOS 

SPRINTF 

UERROR 
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NAME:  STRTLST 

PURPOSE:  CREATE  A  NEW  LINKED  LIST  STRUCTURE. 

LANGUAGE:  C 

SOURCE  FILE:  STRTLST 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


INPUT: 

LLIST1  *(*NEWLIST)? 

INT  NEWREF; 

CALLED  BY: 

BLOOPCK ,  TLOOPCK 
DESCRIPTION: 

THIS  PROGRAM  WILL  ALLOCATE  MEMORY  FOR  THE  HEAD  OF  A  NEW 

LINKED 

LIST  STRUCTURE,  AND  SET  UP  A  POINTER  TO  THIS. 


ARGUMENTS : 


LLIST1  ** 
INT 


INCLUDE  FILES: 


STDIO 

LLIST 


NEWLIST 

NEWREF 
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ROUTINES  CALLED: 
MALLOC 
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NAME:  TERMSES 

PURPOSE:  ROUTINE  TO  TERMINATE  AN  NDDL 

LANGUAGE:  C 

SOURCE  FILE:  TERMSES 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SESSION. 


SYNOPSIS 

C 

COBOL 
FORTRAN  — 
INPUT: 

OUTPUT: 
DESCRIPTION 
IF  INTERACTIVE 
TERMINATED. 

CURRENTLY, 

VAX. 


TERMSES ( )  ; 

CALL  "TERMSES'' . 
CALL  TERMSES 


OR  UIMS  THE  FORMS  PROCESSOR  SHOULD  BE 
THESE  TWO  OPTIONS  ARE  ONLY  AVAILABLE  ON  THE 


AND  LOGOFF  FROM  THE  CDM. 

MODIFIED:  23  SEP,  1988  CHANGE  COLOGOF  TO  OLOGOF  AND 
ADDED  IFDEF 


INCLUDE  FILES: 


NDDLEX 


ROUTINES  CALLED: 
TERMFP 


3-1397 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  TLOOPCK 

PURPOSE:  CHECK  FOR  LOOPS  FROM  THE  ENTITY  GIVEN  DOWN  THE 
HIERARCHY 
LANGUAGE:  C 
SOURCE  FILE:  TLOOPCK 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  TLOOPCK (EC_NO) 

COBOL  —  CALL  ''TLOOPCK"  USING 

EC— NO • 

FORTRAN  —  CALL  TLOOPCK  (ECNO) 

INPUT : 

INT  EC_NO  THE  ENTITY  CLASS  FOR  WHICH  A  DOWNWARD 
HIERARCHY  WILL 

BE  SEARCHED 

OUTPUT : 

WARNING  MESSAGES  WILL  BE  ISSUED 

STATUS  SET  TO  -1  IF  A  LOOP  IS  FOUND 

LEFT  ALONE  OTHERWISE 

*  DESCRIPTION 

USE  A  SQL  TREE  SEARCH  FOR  ALL  RELATIONS  BELOW  THIS 
ENTITY,  IF  A  LOOP 

IN  THE  USER  DATA  IS  ENCOUNTERED,  REPORT  AN  ERROR  TO 
THE  USER. 

REWRITTEN  TO  PRO-C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

3/14/89:  REWRITTEN  TO  TAKE  OUT  'CONNECT  BY  PRIOR'  TO  MAKE  IT 

ALL 

STANDARD  SQL. 

8/30/89:  MODIFIED  TO  HANDLE  CATEGORY  RELATIONS  AS  WELL  AS 

LINK  RELATIONS 
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« 


ARGUMENTS : 


INT  * 
INT  * 


EC_NO 

STATUS 


INCLUDE  FILES: 


STDIO 

EOD 

LLIST 


ROUTINES  CALLED: 


SQLAB2 

SQLAD2 

SQLBS2 

SQLCLS 

FRELST1 

STRCPY 

ADDPARM 

ERRRPT 

SQLEXE 

SQLFCH 

LOOPDEP 

ADDNODE 

STRTLST 

SQLOSQ 

SQLSCA 

SQLSCC 

SQLSCH 

SQLTOC 
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NAME:  TOPNODE 

PURPOSE:  SELECT  ALL  THE  LEVEL  1  TOP  NODE  INDEPENDENT  ENTITY 

LANGUAGE:  C 

SOURCE  FILE:  TOPNODE 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ENTITY 


CLASSES  IN  THE  FROM_MODEL  AND  GENERATE  ALTER 
STATEMENTS  TO  ADD  THEIR  KEY  CLASSES. 


SYNOPSIS 

C  —  TOPNODE (&MODEL_NO,&RC)  ; 

COBOL  —  CALL  •'TOPNODE1*  USING 

MODEL-NO , 

RC  • 

FORTRAN  —  CALL  TOPNODE (MODELNO,  RC) 

INPUT: 

INT  *MODEL_NO  ; 

INT  ^STATUS  ; 

DESCRPIPTION : 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


INT  * 
INT  * 


MODEL_NO 

STATUS 
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INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

GETECNM 

GENALTE 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  TXTTYP 

PURPOSE:  DETERMINE  SOURCE  OF  DESCRIPTION  TEXT 

LANGUAGE:  C 

SOURCE  FILE:  TXTTYP 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 


C  —  TXTTYP  (&TXT_TYPE,  FILE_NAME) 

COBOL  —  CALL  “TXTTYP"  USING 

TXT-TYPE 

FILE-NAME 

FORTRAN  —  CALL  TXTTYP  (TXTTYPE,  FILENAM) 

INPUT: 

OUTPUT: 

INT  *TXT_TYPE 
CHAR  FILE_NAME 
DESCRIPTION 

TXTTYP  DETERMINES  THE  SOURCE  (TXT-TYPE)  OF  THE 
DESCRIPTION  TEXT 

(TEXT  EDITOR=l ,  FILE=2 ,  COMMAND  TEXT=3) .  IF  THE  SOURCE 
IS  A  FILE, 

THE  FILE  NAME  IS  RETURNED.  IF  THE  SOURCE  IS  TEXT,  THE 
TEXT  IS 

RETURNED. 


ARGUMENTS : 


INT  * 
CHAR  [] 


TXT_TYPE 
FILE  NAME 
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INCLUDE  FILES: 


CSTDTYP 

LISTID 


ROUTINES  CALLED: 


CPFONE 


3-1403 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  UINDDL/MAIN 

PURPOSE:  MAIN  PROGRAM  FOR  THE  NDDL  COMMAND  PROCESSOR 

LANGUAGE:  C 

SOURCE  FILE:  UINDDL 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

THE  PROGRAM  WILL  USE  THE  FORMS  PROCESSOR 

*****************  UIMS  VERSION  *************** 
INPUT: 

OUTPUT: 

DESCRIPTION 

THIS  IS  THE  MAIN  FOR  THE  NDDL  COMMAND  PROCESSOR. 


ARGUMENTS : 


ARGC  INT 

ARGV  CHAR  *  [] 


INCLUDE  FILES: 


SIGNAL 

CMDID 

LISTS 

NDDLEX 

STDIO 
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ROUTINES  CALLED: 


ERRTRAP 

STRNCPY 

SIGNAL 

INITAL 

STRNCMP 

ERRPRO 

EXIT 

INITSES 

PROCMD 

TERMSES 

TRMDML 
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NAME;  ERRTRAP 
PURPOSE; 

LANGUAGE:  C 
SOURCE  FILE:  UINDDL 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 

XXX  INT 


INCLUDE  FILES: 


SIGNAL 

CMDID 

LISTS 

NDDLEX 

STDIO 


ROUTINES  CALLED: 


TRMDML 

EXIT 
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NAME:  UPDAC 

PURPOSE:  UPDATE  ATTRIBUTE_CLASS  SET  DOMAIN  NO  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDAC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  AC  NO  =  :2  ; 


SYNOPSIS 

C  —  UPDAC (&DOMAIN_NO,  &AC_NO,  &STATUS ) 

COBOL  —  CALL  "UPDAC”  USING 

DOMAIN-NO, 

AC-NO, 

STATUS . 

FORTRAN  —  CALL  UPDAC ( DOMAINNO ,  ACNO,  STATUS) 

INPUT: 

INT  * DOMAIN_NO  ; 

INT  *AC_NO  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
ATTRIBUTE_NAME .  THE  DATA  ARE  TAKEN  FROM  THE  INPUT 
PARAMETERS . 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS: 


DOMAIN_NO 

AC_NO 

STATUS 


INT  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDACAL 

PURPOSE:  UPDATE  MODEL  CLASS  SET  AC  NAME  TYPE  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDACAL 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  AC_NO  =  :  2  AND 
OBJ  ID  =  : 3  ; 


SYNOPSIS 

C  —  UPDACAL (AC_NAME_TYPE,  &ACNO,  OBJID, 

&STATUS)  ; 

COBOL  —  CALL  "UPDACAL"  USING 

EC-NAME-TYPE, 

EC-NO, 

OBJ-ID, 

STATUS • 

FORTRAN  —  CALL  UPDACAL (ECNAMETYPE,  ECNO,  OBJID, 
STATUS) 

INPUT: 

CHAR  *OBJ_ID  ; 

INT  *AC_NO  ; 

CHAR  *AC_NAME_TYPE  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
ENTITY_NAME 

TABLE.  THE  DATA  ARE  TAKEN  FROM  INPUT  PARAMETERS. 

IF  THE  RECORD  IS  SUCCESSFULLY  INSERTED,  THE  STATUS  AND 
RETURN  VALUE  BOT 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 

AC  NAME  TYPE 

CHAR  * 

AC  NO 

INT  * 

OBJ  ID 

CHAR  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDACNM 

PURPOSE:  UPDATE  ATTRIBUTE  NAME  SET  AC_NAME  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDACNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  AC_NAME  =  :  2  AND 
AC  NO  =  : 3 ; 


SYNOPSIS 

C 

COBOL 


FORTRAN 

INPUT: 


UPDACNM (AC_NAME,  AC_NAME ,  &STATUS )  ; 

CALL  "UPDACNM"  USING 

AC-NAME , 

AC-NO, 

STATUS . 

CALL  UPDACNM (ACNAME,  ACNAME,  ACNO,  STATUS) 


CHAR  *AC_NAME  ; 

I NT  *AC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
ATTRI BUTE_NAME 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 

NEW  AC  NAME 

CHAR  * 

AC  NAME 

CHAR  * 

AC  NO 

INT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDAPP 

PURPOSE:  RENAME  THE  HOST-ID  IN  APPLICATION  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDAPP 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDAPP (NEW_ID,  OLD_ID,  ST7TUS) 


COBOL  —  CALL  "UPDAPP”  USING  NEW-ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDAPP  (NEW-ID, OLD-ID j STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  HOST-ID  IN  THE  APPLICATION  CDM  TABUS . 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 


ARGUMENTS: 


NEW_ID  CHAR  * 

OLD  ID  CHAR  * 
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STATUS 


INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDAUC 

PURPOSE:  RENAME  THE  SET  ID  IN  AUC  ST  MAPPING  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDAUC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDAUC (NEW_ID,  OLD_ID,  DB_NO ,  STATUS) 

COBOL  —  CALL  "UPDAUC"  USING  NEW-ID 

OLD-ID 
DB-ID 
STATUS . 

FORTRAN  —  CALL  UPDAUC  (NEW-ID, OLD-ID* DB-ID, STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

DB_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  SET-ID  IN  THE  AUC_ST_MAPPING  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW  ID 

CHAR  * 

OLD  ID 

CHAR  * 

DB  NO 

INT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDAUCE 

PURPOSE:  MODIFY  THE  AUC  OCCURENCE  TO  A  DIFFERENT  ENTITY 

LANGUAGE:  C 

SOURCE  FILE:  UPDAUCE 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDAUCE  ( TAG__NO_OLD ,  EC_NO_NEW,  STATUS) 

COBOL  —  CALL  "UPDAUCE"  USING  TAG-NO-OLD 

EC-NO-NEW 
STATUS . 

FORTRAN  —  CALL  UPDAUCE  (TAG-NO-OLD, EC-NO-NEW, STATUS) 
INPUT: 

TAG_NO_OLD 

EC_NO_NEW 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  MODIFY 
THE  ATTRIBUTE  USE  OCCURENCE  TO  A  DIFFERENT  ENTITY  IN  THE 
CDM  TABLE  ATTRI BUTE_US E_CL . 

(CALLED  BY  ALTER  ATTRIBUTE  OWNERSHIP..) 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 
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TAG  NO  OLD  I NT  * 
EC_NO_NEW  INT  * 
STATUS  INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDCRNM 

PURPOSE:  UPDATE  RELATION  CLASS  SET  RC_NAME_PTR  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDCRNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC  NO  PTR  =  :  2  ; 


SYNOPSIS 

C  —  UPDCRNM ( RC_NAME_PTR ,  &RC_NO_PTR,  &STATUS)  ; 

COBOL  —  CALL  "UPDCRNM"  USING 

RC-NAME, 

RC-NO, 

STATUS. 

FORTRAN  —  CALL  UPDCRNM (RCNAME,  RCNO,  STATUS) 

INPUT: 

CHAR  *RC_NAME_PTR  ; 

INT  *RC_NO_PTR  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
CATEGORY_RELATION . 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


RC_NAME_PTR 
RC  NO_PTR 
STATUS 


CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDDAA 

PURPOSE:  RENAME  THE  RT_ID  IN  DB_AREA  ASSIGNMENT  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDDAA 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDDAA (NEW_ID,  OLD_ID,  DB_NO ,  STATUS) 

COBOL  —  CALL  "UPDDAA"  USING  NEW- ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDDAA  (NEW- ID, OLD-ID^ DB-NO, STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

DB_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT-ID  IN  THE  DB_ARE A_AS S I GNMENT  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW  ID 

CHAR  * 

OLD  ID 

CHAR  * 

DB  NO 

I  NT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDDB 

PURPOSE:  RENAME  THE  HOST-ID  IN  DATA_BASE  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDDB 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

SYNOPSIS 

C  —  UPDDB (NEW_ID,  OLD_ID,  STATUS) 

COBOL  —  CALL  "UPDDB"  USING  NEW- ID 

OLD- ID 
STATUS . 

FORTRAN  —  CALL  UPDDB  (NEW-ID, OLD-ID, STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  HOST-ID  IN  THE  DATA_BASE  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 

NEW_ID 
OLD  ID 


CHAR  * 
CHAR  * 
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STATUS 


I  NT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDDBH 

PURPOSE:  RENAME  THE  HOST-ID  IN  DBMS  ON  HOST  CDM  TABLE 
LANGUAGE:  C  “  “ 

SOURCE  FILE:  UPDDBH 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

SYNOPSIS 

C  —  UPDDBH (NEW_ID,  OLD_ID,  STATUS) 


COBOL  —  CALL  "UPDDBH"  USING  NEW-ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDDBH  (NEW-ID, OLD-ID^ STATUS) 

INPUT: 

NEWID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  HOST- ID  IN  THE  DBMS_ON_HOST  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


CHAR  * 
CHAR  * 


NEW_ID 
OLD  ID 
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STATUS 


INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDDBN 

PURPOSE:  RENAME  THE  DB_NAME  IN  DATA_BASE  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDDBN 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDDBN (NEW_ID,  OLD_ID,  STATUS) 


COBOL  —  CALL  "UPDDBN"  USING  NEW- ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDDBN  (NEW-ID, OLD-ID* STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DB_NAME  IN  THE  DATA_BASE  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


CHAR  * 
CHAR  * 


NEW_ID 
OLD  ID 


3-1427 


PS  620341100 
30  September  1990 


STATUS 


INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDDDI 

PURPOSE:  RENAME  THE  DATA_TYPE_NAME  IN  DATA_ITEM  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDDDI 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDDDI (NEW_ID,  OLD_ID,  STATUS) 

COBOL  —  CALL  "UPDDDI"  USING  NEW- ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDDDI  (NEW-ID, OLD-ID j  STATUS) 

INPUT: 

NEWID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DATA_T Y PE_N AME  IN  THE  DATA_ITEM  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


NEW_ID 
OLD  ID 


CHAR  * 
CHAR  * 
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STATUS 


INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDDF 

PURPOSE:  RENAME  THE  RT-ID  IN  DATA_FIELD  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDDF 

SOURCL  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDDF ( NEW_I D ,  OLD_ID,  DB_NO ,  STATUS) 

COBOL  —  CALL  "UPDDF’'  USING  NEW-ID 

OLD- ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDDF  (NEW-ID, OLD-ID, DB-NO, STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

DB_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT_ID  IN  THE  DATA_FIELD  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 
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NEW_ID 

OLD_ID 

DB_NO 

STATUS 


CHAR  * 
CHAR  * 
INT  * 
1NT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDDFU 

PURPOSE:  RENAME  THE  SET_ID  IN  DF_USED_AS_SET_LINKAGE  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDDFU 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDDFU (NEW_ID,  OLD_ID,  DB_NO ,  STATUS) 

COBOL  —  CALL  "UPDDFU"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDDFU  (NEW-ID , OLD-ID ]  DB-NO , STATUS ) 

INPUT: 

NEW_ID 

OLD_ID 

DB_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  SET-ID  IN  THE  DF_USED_AS_SET_LINKAGE  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 
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NEW_ID 

OLD_ID 

DB_NO 

STATUS 


CHAR  * 
CHAR  * 
I  NT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


i 
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NAME:  UPDDI 

PURPOSE:  RENAME  THE  DI-ID  IN  DATA_ITEM  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDDI 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDDI (NEW_ID,  OLD_ID,  STATUS) 

COBOL  —  CALL  "UPDDI "  USING  NEW- ID 

OLD- ID 
STATUS . 

FORTRAN  —  CALL  UPDDI  (NEW-ID, OLD-ID, STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

VIEW_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DI_ID  IN  THE  DATA_ITEM  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


NEW  ID  CHAR  * 
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OLD__ID 

VIEW_NO 

STATUS 


CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDECAL 

PURPOSE:  UPDATE  MODEL_CLASS  SET  EC  NAME  TYPE  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDECAL 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  EC_NO  =  :  2  AND 
OBJ_ID  =  : 3  ; 

SYNOPSIS 

C  —  UPDECAL (EC_NAME_TYPE,  &EC_NO,  OBJID, 

& STATUS)  ? 

COBOL  —  CALL  "UPDECAL"  USING 

EC-NAME-TYPE , 

EC-NO, 

OBJ-ID, 

STATUS . 

FORTRAN  —  CALL  UPDECAL (ECNAMETYPE,  ECNO,  OBJID, 
STATUS) 

INPUT: 

CHAR  *OBJ_ID  ; 

I NT  *EC_NO  ; 

CHAR  *EC_NAME_TYPE  ; 

OUTPUT: 

I NT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
ENTITY_NAME 

TABLE.  THE  DATA  ARE  TAKEN  FROM  INPUT  PARAMETERS. 

IF  THE  RECORD  IS  SUCCESSFULLY  INSERTED,  THE  STATUS  AND 
RETURN  VALUE  BOT 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS: 


EC_NAME_TYPE  CHAR  * 

EC_NO  INT  * 

OBJID  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDECNM 

PURPOSE:  UPDATE  MODEL_CLASS  SET  ENTITY  NAME  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDECNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  EC_NAME  =  :  2  AND 
EC  NO  =  : 3  ; 


SYNOPSIS 

C 

UPDECNM (NEW_EC_NAME , EC_NAME , &EC_NO , & STATUS)  ; 

COBOL  —  CALL  "UPDECNM"  USING 

NEW-EC-NAME , 

EC-NAME, 

EC-NO, 

STATUS . 

FORTRAN  —  CALL  UPDECNM ( NEWECNAME, ECNAME, ECNO, STATUS) 
INPUT: 

CHAR  *NEW_EC_NAME  ; 

CHAR  *EC_NAME  ; 

INT  *EC_NO  ; 

OUTPUT: 

INT  *STATUS  J 
DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
ENTITY_NAME 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


NEW_EC  NAME 
ECNAME 
EC_NO 
STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDEDF 

PURPOSE:  RENAME  THE  DATA_TYPE  NAME  IN  ELEMENTARY  DATA  FIELD 
TABLE 

LANGUAGE:  C 
SOURCE  FILE:  UPDEDF 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  --  UPDEDF (NEW_ID,  OLD_ID,  STATUS) 


COBOL  —  CALL  "UPDEDF"  USING  NEW-ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDEDF  (NEW-ID, OLD-ID j STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DATA_TYPE_NAME  IN  THE  (ELEMENTARY) DATA  FIELD  CDM  TABLE. 
IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 

NEW  ID  CHAR  * 


3-1441 


PS  620341100 
30  September  1990 


OLD_ID  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDFDF 

PURPOSE:  RENAME  THE  DF-ID  IN  DATA_FIELD  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDFDF 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDFDF (NEW_ID,  OLD_ID,  RT-ID,  DB_NO,  STATUS) 


COBOL  —  CALL  "UPDFDF"  USING  NEW-ID 

OLD-ID 
RT-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDFDF  (NEW-ID, OLD-ID, RT-ID, DB-NO, STATUS) 
INPUT: 

NEW_ID 

OLD_ID 

RT_ID 

DB_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DF_ID  IN  THE  DATAJFIELD  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


NEW_ID 

OLD_ID 

RT_ID 

DB__NO 

STATUS 


CHAR  * 
CHAR  * 
CHAR  * 
I  NT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDFDFU 

PURPOSE:  RENAME  THE  DF_ID  IN  DF_USED  AS  SET  LINKAGE  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDFDFU 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDFDFU (NEW_ID,  OLD_ID,  RT_ID,  DBNO,  STATUS) 


COBOL  —  CALL  "UPDFDFU"  USING  NEW- ID 

OLD- ID 
RT-ID 
DB-NO 
STATUS • 

FORTRAN  —  CALL  UPDFDFU  (NEW-ID, OLD-ID, RT-ID, DB-NO, STATUS) 
INPUT: 

NEW_ID 

OLD_ID 

RT-ID 

DB_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DF-ID  IN  THE  DF_USED_AS_SET_LINKAGE  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


NEW_ID 

OLD_ID 

rt_Td 

DB_NO 

STATUS 


CHAR  * 
CHAR  * 
CHAR  * 
I  NT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDFPDF 

PURPOSE:  RENAME  THE  DF_ID  IN  PROJECT_DATA_FIELD  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDFPDF 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDFPDF (NEW_ID,  OLD_ID,  RT_ID,  DB_NO/  STATUS) 

COBOL  —  CALL  "UPDFPDF"  USING  NEW-ID 

OLD-ID 
RT-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDFPDF  (NEW-ID, OLD-ID, RT-ID, DB-NO, STATUS) 
INPUT: 

NEW_ID 

OLD_ID 

RT_ID 

DB_NO 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DF-ID  IN  THE  PROJECT_DATA_FIELD  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS: 


NEW_ID 

OLD_ID 

RT_ID 

DB_NO 

STATUS 


CHAR  * 
CHAR  * 
CHAR  * 
I  NT  * 

I  NT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDHST 

PURPOSE:  RENAME  THE  HOST-ID  IN  HOST  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDHST 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDHST (NEW_ID,  OLD_ID,  STATUS) 


COBOL  —  CALL  "UPDHST"  USING  NEW-ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDHST  (NEW-ID, OLD- ID, STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  HOST-ID  IN  THE  HOST  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


CHAR  * 
CHAR  * 


NEW_ID 
OLD  ID 
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STATUS 


INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDKCT 

PURPOSE:  UPDATE  KEY  CLASS. KEY  TYPE 

LANGUAGE:  C 

SOURCE  FILE:  UPDKCT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 


UPDKCT ( & KC_NO,  KEY_TYPE,  & STATUS)  ; 


COBOL  —  CALL  "UPDKCT”  USING 

KC-NO, 

KC-TYPE, 

STATUS . 

FORTRAN  —  CALL  UPDKCT (KCNO,  KCTYPE ,  STATUS) 

INPUT: 

I NT  *KC_NO  ; 

CHAR  *KC_TYPE  ; 

OUTPUT: 

I NT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
KEYCLASS 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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KC_NO 

KC_TYPE 

STATUS 


INT  * 
CHAR  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDLRNM 

PURPOSE:  UPDATE  RE LAT ION_CLASS  SET  RC_NAME  PTR  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDLRNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC_NO_PTR  =  :  2  ; 

SYNOPSIS 

C  —  UPDLRNM (RC_NAME_PTR,  &RCNO  PTR,  &STATUS)  ; 

COBOL  —  CALL  "UPDLRNM"  USING 

RC-NAME , 

RC-NO, 

STATUS . 

FORTRAN  —  CALL  UPDLRNM (RCNAME,  RCNO,  STATUS) 

INPUT: 

CHAR  *  RC_NAME_PTR  ; 

I NT  *RC_NO_PTR  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
LINK_RELATION 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


RC_NAME_PTR 

RC_N°_PTR 

STATUS 


CHAR  * 
INT  * 

I  NT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDMNAM 

PURPOSE:  UPDATE  MODEL_CLASS  SET  MODEL_NAME  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDMNAM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  MODEL_NO  =  :  2  ; 

SYNOPSIS 

C  —  UPDMNAM (MODEL  NAME,  &MODEL_NO,  &STATUS)  ; 

COBOL  —  CALL  "UPDMNAM11'  USING 

MODEL-NAME, 

MODEL-NO, 

STATUS . 

FORTRAN  —  CALL  UPDMNAM (MODELNAME ,  MODELNO ,  STATUS) 
INPUT: 

CHAR  *MODEL_NAME  ; 

INT  *MODEL_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
MODEL_CLASS 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  FRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 

MODEL  NAME 

CHAR  * 

MODEL  NO 

I  NT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

CDS DATE 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDMOD 

PURPOSE:  UPDATE  MODEL_CLASS  SET  MODEL  STATUS  =  :  1 

LANGUAGE :  C 

SOURCE  FILE:  UPDMOD 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DATA_MODIFIED  =  SYSDATE 
WHERE  MODEL  NO  =  :  2  ; 


SYNOPSIS 

C  —  UPDMOD (MODEL_STATUS ,  &MODEL_NO ,  &STATUS)  ? 

COBOL  —  CALL  "UPDMOD”  USING 

MODEL-STATUS , 

MODEL-NO, 

STATUS . 

FORTRAN  —  CALL  UPDMOD (MODELSTATUS ,  MODELNO,  STATUS) 
INPUT: 

CHAR  *MODEL_STATUS  ; 

INT  *MODEL_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
MODEL_CLASS 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  5/6/88 
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ARGUMENTS : 


MODEL_STATUS 

MODEL_NO 

STATUS 


CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

CDS DATE 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDMP 

PURPOSE:  RENAME  THE  DATA_TYPE  NAME  IN  MODULE_PARAMETER  CDM 
TABLE 

LANGUAGE:  C 
SOURCE  FILE:  UPDMP 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDMP (NEW_ID,  OLD_ID,  STATUS) 


COBOL  —  CALL  "UPDMP"  USING  NEW-ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDMP  (NEW-ID, OLD-ID, STATUS) 

INPUT: 

NEW_ID 

OLD_ID 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DATA_T Y PE_N AME  IN  THE  MODULE_PARAMETER  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 

NEW  ID  CHAR  * 
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OLD_ID  CHAR  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDNXNO 

PURPOSE:  UPDATE  THE  POOL  TO  RETURN  NEXT  AVAILABLE  NO 

LANGUAGE:  C 

SOURCE  FILE:  UPDNXNO 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 


UPDNXNO  (POOL_NO_PTR,  NEXT_NO_PTR ,  STATUS) 


COBOL  —  CALL  •'UPDNXNO'*  USING 

POOL-NO, 

NEXT_NO, 

STATUS ♦ 

FORTRAN  —  CALL  UPDNXNO  ( POOLNO , NEXT_NO , STATUS ) 
INPUT: 

INT  *  POOL_NO_PTR  ; 

INT  *NEXT_NO_PTR  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION 

THIS  ROUTINE  GET  A  UNIQUE  NUMBER  OF  A  POOL  NUMBER 
FROM  NEXT_NUMBER  RELATION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS: 


INT  * 
INT  * 


POOL_NO_PTR 
NEXT  NO  PTR 
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STATUS 


INT  * 


ROUTINES  CALLED: 


ERRRPT 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 
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NAME:  UPDPDF 

PURPOSE:  RENAME  THE  RT_ID  IN  PRO J ECT_DATA_F I ELD  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDPDF 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDPDF (NEW_ID_PTR,  0LD_ID_PTR,  DB_NO_PTR, 

STATUS) 

COBOL  —  CALL  "UPDPDF"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDPDF  (NEW-ID, OLD-ID, DB-NO, STATUS) 

INPUT: 

NEW_ID_PTR 

OLD_ID_PTR 

DB_NO_PTR 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT-ID  IN  THE  PROJECT_DATA_FIELD  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW  ID  PTR 

CHAR  * 

OLD  ID  PTR 

CHAR  * 

DB  NO  PTR 

INT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDPSB 

PURPOSE:  RENAME  THE  HOST-ID  IN  PSB  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDPSB 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDPSB (NEW_ID_PTR,  OLD_ID_PTR,  STATUS) 

COBOL  —  CALL  "UPDPSB"  USING  NEW-ID 

OLD-ID 
STATUS . 

FORTRAN  —  CALL  UPDPSB  (NEW-ID, OLD-ID, STATUS) 

INPUT: 

NEW_ID_PTR 

OLD_ID_PTR 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  HOST-ID  IN  THE  PSB  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


NEW_ID_PTR 
OLD  ID  PTR 


CHAR  * 
CHAR  * 


3-1465 


PS  620341100 
30  September  1990 


STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME l  UPDRAUC 

PURPOSE:  RENAME  THE  RT_ID  IN  AUC_IS_MAPPING  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDRAUC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRAUC (NEW_ID  PTR,  OLD_ID_PTR,  DB  NO  PTR, 

STATUS) 

COBOL  —  CALL  "UPDRAUC”  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDRAUC  (NEW-ID, OLD-ID, DB-NO, STATUS) 
INPUT: 

NEW_ID_PTR 

OLDIDPTR 

DB_NO_PTR 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT-ID  IN  THE  AUC_IS_MAPPING  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW_ID_PTR 

OLD_ID_PTR 

DBNOPTR 

STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDRCB 

PURPOSE:  RENAME  THE  SET_ID  IN  RC_BASED  REC  SET  TABLE 
LANGUAGE:  C  " 

SOURCE  FILE:  UPDRCB 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRCB (NEW_ID_PTR,  OLD_ID_PTR,  DB_NO_PTR , 

STATUS) 

COBOL  —  CALL  "UPDRCB"  USING  NEW- ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDRCB  ( NEW- ID, OLD- ID, DB-NO , STATUS) 

INPUT: 

NEWIDPTR 

OLDIDPTR 

DB_NO_PTR 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  SET_ID  IN  THE  RC_BASED_REC_SET  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW_ID_PTR 
OLD_ID  PTR 
DB_NO_PTR 
STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDRCNM 

PURPOSE:  UPDATE  RELATION_CLASS  SET  RC  NAME  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDRCNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

WHERE  RC_NO  =  :  2  ; 

SYNOPSIS 

C 

— 

UPDRCNM (RC  NAME,  &RC  NO,  &STATUS)  ; 

COBOL 

— 

CALL  "UPDRCNM"  USING 

FORTRAN 

RC-NAME , 

RC-NO , 

STATUS . 

CALL  UPDRCNM (RCNAME,  RCNO,  STATUS) 

INPUT: 

CHAR  *RC 

NAME 

• 

t 

INT  *RC 

NO  ; 

OUTPUT : 

I NT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  CALLS  TO  DETERMINE  THE  RELATION  TYPE 
AND  THEN  UPDATES 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


VERRCT 

STRNCMP 

UPDCRNM 

UPDLRNM 


RCNAME 

RC_NO 

STATUS 


3-1472 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDRDFU 

PURPOSE:  RENAME  THE  RT_ID  IN  DF_USED_AS_SET_LINKAGE  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDRDFU 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRDFU (NEW_ID_PTR,  OLD_ID_PTR,  DB_NO_PTR , 

STATUS) 

COBOL  —  CALL  "UPDRDFU"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDRDFU  (NEW-ID, OLD-ID, DB-NO, STATUS) 
INPUT: 

NEW_ID_PTR 

OLDIDPTR 

DBNOPTR 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT-ID  IN  THE  DF_USED_AS_SET_LINKAGE  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW_ID_PTR 

OLD_ID_PTR 

DB_NO_PTR 

STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDRRCB 

PURPOSE:  RENAME  THE  RT_ID  IN  RC_BASED  REC  SET  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDRRCB 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRRCB ( NEW_I D_PTR ,  OLD  ID  PTR,  DB_NO  PTR, 

STATUS) 

COBOL  —  CALL  "UPDRRCB"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDRRCB  (NEW-ID, OLD-ID, DB-NO , STATUS) 
INPUT: 

NEW_ID_PTR 

OLDIDPTR 

db_n°_ptr 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT-ID  IN  THE  RC_BAS ED_REC__S ET  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW_ID_PTR 
OLD_I D_PTR 
DB_N°_PTR 
STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


3-1476 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDRRS 

PURPOSE:  RENAME  THE  RT_ID_OF_OWNER  IN  RECORD  SET  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDRRS 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRRS (NEW_ID_PTR,  OLD  ID_PTR,  DB  NO_PTR, 

STATUS) 

COBOL  —  CALL  "UPDRRS"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS • 

FORTRAN  —  CALL  UPDRRS  (NEW-ID, OLD-ID j  DB-NO , STATUS) 

INPUT: 

NEW_ID_PTR 
OLD_ID_PTR 
DB_NO  PTR 
OUTPUT :~ 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT-ID__OF_OWNER  IN  THE  RECORD_SET  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW__I  D_PTR 
OLD_I D_PTR 
DB_NO_PTR 
STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDRSS 

PURPOSE:  RENAME  THE  SET_ID  IN  RECORD  SET  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDRSS 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRSS (NEW_ID_PTR,  OLD_ID_PTR,  DB_NO_PTR , 

STATUS) 

COBOL  —  CALL  "UPDRSS"  USING  NEW-ID 

OLD- ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDRSS  (NEW-ID, OLD- ID, DB-NO, STATUS) 

INPUT: 

NEW_ID_PTR 
OLD__I  D_PTR 
DBNOPTR 
OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  SET_ID  IN  THE  RECORD_SET  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


3-1479 


PS  620341100 
30  September  1990 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


NEW_ID_PTR 

OLD_ID_PTR 

DB_NO_PTR 

STATUS 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDRSTM 

PURPOSE:  RENAME  THE  RT_ID_OF_MEMBER  IN  SET_TYPE  MEMBER  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDRSTM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRSTM (NEW_ID_PTR,  OLD_ID_PTR,  DB_NO_PTR , 

STATUS) 

COBOL  —  CALL  "UPDRSTM"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDRSTM  (NEW-ID, OLD-ID, DB-NO, STATUS) 
INPUT: 

NEW_I D_PTR 
OLD_ID_PTR 
DB_NO_PTR 
OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT-ID_OF_MEMBER  IN  THE  SET_TYPE_MEMBER  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW_ID_PTR 

OLD_ID_PTR 

DB_N°_PTR 

STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  UPDRT 

PURPOSE:  RENAME  THE  RT-ID  IN  RECORD_TYPE  CDM  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDRT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDRT (NEW_ID_PTR,  OLD_ID_PTR,  DBNOPTR,  STATUS) 

COBOL  —  CALL  "UPDRT"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDRT  (NEW-ID, OLD-ID, DB-NO, STATUS) 

INPUT: 

NEW_I D_PTR 
OLD_I D_PTR 
DB_NO_PTR 
OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  RT_ID  IN  THE  RECORD_TYPE  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 
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NEW_ID_PTR 

OLD_ID_PTR 

°B_NO_PTR 

STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDSTM 

PURPOSE:  RENAME  THE  SET_ID  IN  S ET_T Y PE_MEMBER  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDSTM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDSTM (NEW_ID_PTR,  OLD_ID_PTR,  DB_NO_PTR, 

STATUS) 

COBOL  —  CALL  "UPDSTM"  USING  NEW-ID 

OLD-ID 
DB-NO 
STATUS . 

FORTRAN  —  CALL  UPDSTM  (NEW-ID, OLD-ID, DB-NO, STATUS) 

INPUT: 

NEW_ID_PTR 

OLD_ID_PTR 

DBNOPTR 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  SET_ID  IN  THE  SET_TYPE_MEMBER  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


» 
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NEW_ID_PTR 
OLD_I D_PTR 
DB_N°_PTR 
STATUS 


CHAR  * 
CHAR  * 
INT  * 
INT  * 


ROUTINES  CALLED: 


*  STRNCPY 

SQLSCA 
SQLBS2 
SQLSCH 
'  SQLSCC 

SQLTFL 
SQLOPN 
SQLOSQ 
SQLAB2 
SQLEXE 
SQLWNR 
ERRRPT 
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NAME:  UPDTCR 

PURPOSE:  UPDATE  CATEGORY_RELATION  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDTCR 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDTCR (&RC_NO,  &GEN  EC  NO,  CAT  TYPE  CODE, 

&STATUS)  ; 

COBOL  —  CALL  "UPDTCR"  USING 

RC-NO 
GEN-EC-NO 
CAT-TYPE-CODE 
STATUS . 

FORTRAN  —  CALL 

UPDTCR (RCNO , GENECNO , CATTYPECODE , STATUS ) 

INPUT: 

INT  *RC_NO  ; 

INT  *GEN_EC_NO  ; 

INT  *CAT_TYPE_CODE  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
CATEGORY_RELATION 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


RC_NO 

GEN_EC_NO 

CAT_TYPE_CODE 

STATUS 


INT  * 
INT  * 
CHAR  * 
INT  * 


ROUTINES  CALLED: 


STRLEN 

STRNCPY 

SOLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


t 
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NAME:  UPDTDOM 

PURPOSE:  UPDATE  DOMAIN  SET  DOMAIN_NAME  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDTDOM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  DOMAIN_NO  =  :  2  ; 

SYNOPSIS 

C  —  UPDTDOM (DOMAIN_NAME_PTR,  & DOMAIN  NO  PTR, 

&STATUS)  ; 

COBOL  —  CALL  ''UPDTDOM"  USING 

DOMAIN-NAME , 

DOMAIN-NO, 

STATUS . 

FORTRAN  —  CALL  UPDTDOM ( DOMAINNAME ,  DOMAINNO,  STATUS) 
INPUT: 

CHAR  *  DOMAIN_NAME_PTR  ; 

INT  *DOMAIN_NO_PTR  ,* 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
DOMAIN 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


DOMAIN  NAME  PTR 

CHAR  * 

DOMAIN  NO  PTR 

INT  * 

STATUS 

INT  * 

ROUTINES  CALLED: 

STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 

t 
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NAME:  UPDTKW 

PURPOSE:  UPDATE  KEYWORD  SET  KEYWORD  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDTKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  KW_NO  =  :  2  ; 

SYNOPSIS 

C  —  UPDTKW (KEYWORb_PTR,  &KW_NO_PTR,  &STATUS)  ; 

COBOL  —  CALL  "UPDTKW"  USING 

KEYWORD, 

KW-NO, 

STATUS . 

FORTRAN  —  CALL  UPDTKW (KEYWORD,  KWNO,  STATUS) 

INPUT: 

CHAR  *  KEYWORD- PTR  ; 

INT  *  KW_NO_PTR  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
KEYWORD 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


KEYWORD_PTR  CHAR  * 

KW_NO_PTR  INT  * 

STATUS  INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


t 
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NAME:  UPDTRC 

PURPOSE:  UPDATE  LINK_RELATION  TABLE 

LANGUAGE:  C 

SOURCE  FILE:  UPDTRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDTRC (&INDJPTR,  &MIN_DEP_PTR , 

&MAX_DEP_PTR, 

&RC_NO_PTR ,  &STATUS)  ; 

COBOL  —  CALL  ''UPDTRC"  USING 

NO-IND-ENT, 

MIN-NO-DEP-ENT , 
MAX-NO-DEP-ENT, 

RC-NO, 

STATUS . 

FORTRAN  ~  CALL 

UPDTRC (NOINDENT , MINNODEPENT , MAXNODEPENT , RCNO , 

STATUS) 

INPUT: 

INT  *IND_PTR  ; 

INT  *MIN  DEPPTR  ; 

INT  *MAX_DEP_PTR  ; 

INT  *RC_NO_PTR  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 
LINKJRELATION 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 
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WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


IND_PTR  INT  * 
M I N_DE P_PTR  INT  * 
MAX_DEP_PTR  INT  * 
RC_NO_pTR  INT  * 
STATUS  INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


* 


3-1494 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  UPDUDT 

PURPOSE:  RENAME  THE  DATA_T Y PE_NAME  IN  USER_DEF_DATA_TYPE  CDM 
TABLE 

LANGUAGE:  C 
SOURCE  FILE:  UPDUDT 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  UPDUDT (NEW_ID_PTR,  OLD_ID_PTR,  STATUS) 

COBOL  —  CALL  "UPOUDr”  USING  NEW-ID 

OLD- ID 
STATUS . 

FORTRAN  —  CALL  UPDUDT  (NEW-ID, OLD- ID ) STATUS) 

INPUT: 

NEW_ID_PTR 
O  LD_I D_PTR 
OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  UPDATE  (RENAME) 
THE  DATA_TYPE_NAME  IN  THE  USER_DEF_DATA_TYPE  CDM  TABLE. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 

NEW  ID  PTR  CHAR  * 


f 
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CHAR  * 
INT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


OLD_ID_PTR 

STATUS 
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NAME:  UPDVIEW 

PURPOSE:  UPDATE  VIEW  SET  SEC_ID  =  :  1 

LANGUAGE:  C 

SOURCE  FILE:  UPDVIEW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  VIEW_NO  =  :  2  ; 

SYNOPSIS 

C  —  UPDVIEW (SEC_ID_PTR,  &VIEW_NO_PTR,  &STATUS ) 

COBOL  —  CALL  "UPDVIEW"  USING 

SEC-ID, 

VIEW-NO, 

STATUS . 

FORTRAN  —  CALL  UPDVIEW (SECID,  VIEWNO,  STATUS) 

INPUT: 

CHAR  *SEC__ID_PTR  ; 

INT  *VIEW_NO_PTR  ; 

OUTPUT: 

INT  *STATUS  ; 

DES  CRPI PTI ON Z 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  UPDATE  A  RECORD  OF  THE 

VIEW 

THE  DATA  ARE  TAKEN  FROM  THE  INPUT  PARAMETERS. 

IF  SUCCESSFULLY  INSERTED  THE  RECORD,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 
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ARGUMENTS : 


SEC_ID_PTR  CHAR  * 

VIEW  NO_PTR  I NT  * 

STATUS  I NT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  VEROBJ 

PURPOSE:  VERIFY  THAT  THE  OBJECT  EXISTS. 

LANGUAGE:  C 

SOURCE  FILE:  VEROBJ 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  VEROBJ  (OBJJTYPE,  &MODEL_NO ,  &OBJ_NO) 

COBOL  —  CALL  "VEROBJ"  USING 

OBJ-TYPE 

MODEL-NO 

OBJ-NO. 

FORTRAN  —  CALL  VEROBJ  ( OBJTYPE , MODELNO , OBJNO ) 

INPUT: 

CHAR*OBJ_TYPE [ ] 

INT  *MODEL_NO 
OUTPUT: 

INT  *OBJ_NO 
DESCRIPTION 

VEROBJ' S  FUNCTION  IS  TO  VERIFY  THAT  THE  OBJECT  TYPE 
ENTERED  IN  THE 

DESCRIBE  COMMAND  IS  VALID.  IF  THE  OBJECT  TYPE  IS  NOT  VALID, 
OBJ_NO  WILL  CONTAIN  ZERO.  IF  THE  OBJECT  TYPE  IS  VALID, 

OBJ  NO  WILL 

CONTAIN  THE  OBJECT  NUMBER  OF  THE  OBJECT  IN  QUESTION. 


ARGUMENTS : 

OBJJTYPE  CHAR  [  ] 


1 
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